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Editorial 



RESPUESTA POSITIVA 



El mes pasado anunciábamos a nuestros lectores la 
reducción de precios de los videojuegos. Ahora, en 
el presente número, ya tenemos algunos elementos 
para hacer balance, bien que provisional y de urgen- 
cia, sobre las consecuencias directas que tal medida 
ha tenido, y se puede pensar que tendrá, sobre esta 
franja del mercado de software. 

No decimos nada nuevo si constatamos que, del 
lado de la producción y la distribución, el apoyo que 
recibió la reducción de precios no estaba exento de 
cierto desasosiego respecto del rumbo definitivo que 
tomarían los acontecimientos. Tal recelo se justifi- 
caba por el temor a que el descenso de precios, y del 
margen comercial, no fuera contrarrestado por el 
crecimiento del mercado. 

También cabía esperar una cierta reserva psicoló- 



gica de parte de los usuarios, habituados a valorar la 
calidad de los programas en función de su precio. 

A nuestro juicio y teniendo siempre en cuenta las 
limitaciones de perspectiva que mencionábamos an- 
tes, los primeros efectos han sido de tono claramente 
positivo: tanto las empresas como los compradores 
han asimilado la nueva tarifa. 

Sin duda era necesario que los videojuegos se ofre- 
cieran en el mercado a un precio que resultara justo 
para el comprador, a la vez que asimilable a su poder 
adquisitivo. 

Ésta era una necesidad impostergable si se quería 
crear un mercado estructurado e integrado en el que 
nadie tuviera conciencia de ser inadecuadamente tra- 
tado. El pasado mes se dio un paso muy importante 
en ese sentido. 



LOS MEJORES DE INPUT 

Hemos pensado que es interesante disponer de un ranking que El resultado de las votaciones será publicado en carJa número 

ponga en claro, mes a mes, cuáles son los programas preferidos de INPUT. 

de nuestros lectores. Para ello, es obligado preguntaros directamen- Entre los votantes sortearemos 10 cintas de los títulos que pidáis 

te y tener así el mejor termómetro para conocer vuestras preferen- en vuestros cupones. 

cias. Podéis votar por cualquier programa aunque no haya sido co- Nota: No es preciso que cortéis la revista, una copia hecha a 

mentado todavía en INPUT. máquina o una simple fotocopia sirven. 

Enviad vuestros votos a: LOS MEJORES DE INPUT Aribau, 185. Planta 1 . 08021 Barcelona 



ELIGE TUS PROGRAMAS 



Primer titulo elegido L 
Tercer título elegido L 
Qué ordenador tienes 
1." Apellido I i l 



Fecha de nacimiento I 



Dirección I i i i 



Provincia I i i i 



L_.. 



Segundo titulo elegido 



J I L 



J I I L 



lili 



Programa que te gustaría conseguir 
Nombre I i i i i i i i 



2." Apellido 



J L 



Teléfono I i i i i i i i 



J Localidad I i i i i i i i 



INPUT MSX N.° 11 



.._] 
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DIBUJANDO 
BIT A BIT 



■ 
■ 
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UlblTALIZAR COPIAR 




EL MODELO 


■ 


DEFINICION DEL DIBUJO 


■ 


PRESENTACION EN PANTALLA 


■ 


GRABACION 



Probablemente, en alguna ocasión, 
habréis estado interesados en guardar 
un gráfico o un dibujo en vuestro 
ordenador, aprovechando las 
opciones que ofrece el sistema MSX. 

Con el programa «Dibujando bit a 
bit», tal como sugiere su nombre, po- 
dréis hacerlo mediante un sencillo pro- 
ceso. 

En primer lugar, tendréis que di- 
bujar el motivo sobre un papel cua- 
driculado. 

Siguiendo el perfil del dibujo, iréis 
marcando punto a punto el trazado del 
mismo, evidentemente, cuanto más 
corta sea la distancia entre puntos, 
más calidad tendrá la digitalización, ya 
que evitaréis los saltos bruscos que 
forman las líneas al unir los puntos. 

Una vez definido daréis un valor a 
cada punto, bien sea en sistema bina- 
rio, hexadecimal o decimal. 

Cuando el dibujo ya está digitali- 
zado, tenéis la opción de verlo simple- 
mente en la pantalla, y también de 
guardarlo en cassette, que os permi- 
tirá conservarlo y verlo tantas veces 
como queráis. 

«Dibujando bit a bit» os da la so- 
lución a la cuestión planteada. Espe- 
ramos que os sea de utilidad, ya que 
además de pasarlo bien os brinda la 
opción de disponer de gráficos tan 
completos como hayáis dispuesto. 

FUNCIONAMIENTO DEL 
PROGRAMA 

Para comenzar el programa, de la 
línea 1Ü a la 240 realiza una presen- 
tación y explica el funcionamiento de 
mismo. 

10 CLEAR 400,44999! 
20 COLOR 3,1,1 
30 KEY OFF 
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40 CLS 

50 OPEN "grp : " AS # 1 

60 PRINT "Este programa realiza 

dibujos" 
70 PRINT "directamente en 

memoria de video." 
80 PRINT 

90 PRINT "El tamaño del dibujo 
es de 96x112 pixels (12*14 
caracteres)." 
100 PRINT "presiona una tecla 

para continuar." 
110 K$ = INKEY$ 
120 IF K$ = "" THEN GOTO 110 
130 SCREEN 2,0,0 
140 LINE (72,0)-(72 + 88 + 7, 

112),8,BF 
150 PSET (20, 130), 1 
160 PRINT # l,"Este es el 

tamaño del" 
170 PSET (20, 140), 1 
180 PRINT # 1, "dibujo una vez 

terminado." 
190 PSET (20, 170), 1 
200 PRINT # 1, "presiona una 

tecla " 
210 PSET (20, 180), 1 
220 PRINT # l,"para 

continuar." 
230 K$=INKEY$ 
240 IF K$="" THEN GOTO 230 

Seguidamente nos muestra un menú 
que ofrece tres opciones. La primera 
nos permite crear el dibujo; la se- 
gunda lo muestra en la pantalla; y la 
tercera, graba la información del di- 
bujo en un cassette, o bien la carga en 
el ordenador. Estas instrucciones po- 
demos verlas en las líneas 25 a 350. 



250 


SCREEN 0,0,0 


260 


PRINT "MENU DE 




OPCIONES:" 


270 


PRINT 


280 


PRINT "- 1 -CREAR 




DIBUJO." 


290 


PRINT "-2-MOSTRAR 




DIBUJO." 


300 


PRINT "-3-GRABAR/LEER 




DIBUJO." 


310 


K$ = INKEY$ 


320 


IF K$="l" THEN GOTO 360 
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330 IF K$ = "2" THEN GOTO 530 
340 IF K$ = "3" THEN GOTO 710 
350 GOTO 310 



PRIMERA OPCION 

En la línea 360 empieza la rutina 
que nos permite crear el dibujo; nos 
preguntará: «Número de líneas a edi- 
tar», confiriendo este dato a N. 

En la línea 380 definimos PV, como 
la dirección de la memoria de vídeo, 
donde escribiremos los datos. 

Asimismo, en la línea 390 definimos 
DG, como la dirección de la memoria 
central, donde guardaremos los datos. 



A continuación, desde la línea 410 
a 510, se crea un bucle encargado de. 
preguntarnos, uno a uno, el valor que 
adjudicamos a cada dirección de la 
VRAM, guardándolo a partir de la di- 
rección 45000 de la memoria. Al fi- 
nalizar, las sentencias de la línea 520 
retornan el control al Menú de Opcio- 
nes. 



360 REM EDICION 
370 INPUT "NUMERO DE 
LINEAS A EDITAR:" ; N 
380 PV=72 
390 DG = 45000! 



0000000000000000000001 13 31 63 127 255 
255 255 255 255 255 255 255 255 255 255 255 255 255 255 
255 255 255 255 255 255 255 255 255 255 255 255 255 255 
255 255 255 255 255 255 255 255 255 255 255 255 255 255 
255 255 128 1 92 224 224 240 240 248 
0000000000000000000003377 15 15 31 31 
255 255 255 255 255 235 215 213 255 255 255 255 255 255 
63 5 255 255 255 255 199 195 129 129 255 255 255 255 255 
255 255 255 255 255 255 255 255 255 255 255 255 255 255 
255 255 255 255 255 248 252 252 254 254 254 255 255 
00000000000000000000000000000 63 63 
63 63 127 127 127 255 168 208 96 128 64 128 64 128 3 
255 255 255 255 255 127 127 63 255 
255 255 255 255 255 255 255 255 255 2.55 255 255 255 255 
255 255 255 255 255 255 255 255 255 128 128 128 128 128 
192 224 240 1 1 1 1 1 1 1 1 254 

254 254 254 254 254 255 255 128 224 
63 63 31 31 15 15 7 7 255 255 255 255 

255 255 255 255 255 255 255 255 255 255 255 255 255 255 
255 255 255 255 255 255 240 240 248 248 252 252 252 254 
3 3 7 15 31 63 63 127 252 252 
252 252 252 253 253 253 240 60 28 2 249 252 242 115 
128 64 65 1 63 63 48 31 2 194 255 255 1 192 
255 255 255 255 255 127 63 31 255 255 255 255 255 255 255 
255 255 255 255 255 255 255 255 255 254 254 254 255 255 
255 255 255 128 128 224 1 3 7 15 31 31 63 255 

255 255 255 255 255 255 255 252 252 248 248 248 248 248 
252 255 1 1 195 66 69 70 133 139 14 10 47 47 22 15 
112 12 120 192 31 31 15 15 6 5 10 13 255 255 
255 255 255 255 255 255 255 255 255 255 255 255 255 255 
255 255 255 255 255 255 255 255 224 240 248 252 254 255 
255 255 63 63 63 63 63 63 63 63 255 255 255 255 255 255 
255 255 252 252 252 252 252 254 254 254 2 2 4 4 7 6 1 13 
11 5 1 156 99 254 128 128 18 29 
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400 CLS 

410 FOR T=l TO N 
420 LOCATE 1,1 

430 PRINT "N.DATO P.V/ 

R CONTENIDO." 

440 PRINT T ; " ";PV; 

450 INPUT DT 
460 PV=PV+1 

470 IF PV=72 + 97 THEN PV=72 

480 POKE DG.DT 

490 DG=DG+ 1 

500 CLS 

510 NEXTT 

520 GOTO 250 



SEGUNDA OPCION 

En la línea 530 comienza la rutina 
encargada de presentar el dibujo en la 
pantalla. Nos pregunta de «Qué co- 
lor» deseamos el dibujo, y se sitúa en 
Screen 2, para trabajar en modo grá- 
fico de gran definición. 

Volvemos a entrar de nuevo en otra 
rutina, que va de la línea 540 a 620, 
que tiene como misión recoger los da- 
tos, a partir de la dirección 45000 e in- 
troducirlos en VRAM. 

Desde la línea 630 a 700 espera a 
que pulsemos una tecla para volver de 
nuevo al Menú de Opciones. 



530 INPUT "QUE COLOR:"; 

COrCOLOR 3,1,C0:SCREEN 

2,0,0 
540 DG = 45000! 
550 DD=72 

560 FOR T=DD TO DD+88+7 

570 VPOKE T,PEEK (DG) 

580 DG=DG+ 1 

590 NEXTT 

600 DD=DD+256 

610 IF T = >3505 THEN GOTO 

630 
620 GOTO 560 
630 REM 

640 PSET (20, 160), 1 

650 PRINT # 1, "Presiona una 

tecla" 
660 PSET (20, 170), 1 
670 PRINT # l,"para salir." 
680 K$=INKEY$ 
690 IF K$ = "" THEN GOTO 680 
700 GOTO 250 



TERCERA OPCION 

Este bloque es el encargado de la 
rutina de Grabación y Carga de di- 
bujos. En primer lugar, desde las lí- 
neas 710 a 770 presenta las dos opcio- 
nes a escoger. 

La primera corresponde a la rutina 
de grabación, que va de la línea 780 a 
860, funcionando de la siguiente 
forma: en la línea 810 espera a que 
pulsemos una tecla, al hacerlo, las ins- 
trucciones de la línea 830 graban los 
datos entre las posiciones 45000 a 
48700. Al terminar la grabación, 
muestra el mensaje «La grabación ha 
terminado», volviendo al Menú de 
Opciones. 

La segunda parte corresponde a la 
rutina de Carga, ocupando desde la lí- 
nea 870 a la 960. 

Igual que la anterior rutina, co- 
mienza esperando a que pulsemos una 
tecla, al hacerlo, las sentencias de la 
línea 930 se tienen por misión cargar 
el programa en el cassette, tras lo cual 
salta a la línea 940 que imprime «La 
carga ha terminado», con lo cual sal- 
tamos a la línea 960, que nos devuelve 
al Menú Principal, desde donde po- 
dremos acceder a los datos grabados. 



18 21 42 53 42 53 191 95 199 71 132 136 144 96 255 255 255 
255 255 255 255 255 255 255 255 255 255 255 255 255 255 
255 255 255 255 255 255 255 63 63 127 127 255 255 255 255 
255 255 255 255 255 255 255 255 255 255 255 255 255 255 
255 255 7 15 142 142 143 255 63 0192 

128 224 112 112 43 21 26 13 10 13 9 14 255 
255 255 255 255 255 255 255 255 255 255 255 255 255 255 
255 255 255 255 255 255 255 255 255 255 255 255 255 255 
255 255 255 255 255 255 255 255 127 63 63 255 255 255 255 
255 255 255 255 255 255 255 255 255 255 255 255 135 135 

129 129 64 32 32 16 255 255 255 255 126 224 192 128 
1 1 2 12 19 39 79 143 15 31 31 31 255 255 
255 255 255 255 255 255 255 255 255 255 255 255 255 255 
255 255 255 255 255 255 255 255 255 255 255 255 255 255 
255 255 31 31 15 15 15 15 15 15 255 255 255 255 255 255 
255 255 255 255 255 255 255 255 255 255 240 240 248 252 

254 255 255 255 249 198 192 1 30 224 24 
112 192 31 63 63 63 63 63 31 31 255 255 255 255 

255 255 255 255 255 255 255 255 255 255 255 255 255 255 
255 255 255 255 255 255 255 255 255 255 255 255 255 255 
000000000000000000000000000000000 
00000000000000000^ 

000000000000000000000000000000000 

000000000000000000000000000000000 



000000000000000000000000000000000 

000000000000000000000000000000000 

000000000000000000000000000000000 

000000000000000000000000000000000 

000000000000000000000000000000000 

000000000000000000000000000000000 

00000000000000000000000000000000 

000000000000000000000000000000000 

0000000000000000000000000000 

000000000000000000 



INPUT 7 





710 CLS 740 
720 PRINT "-1-GRABAR." 750 
730 PRINT "-2-CARGAR." 760 



K$ = INKEY$ 

IF K$="l" THEN GOTO 780 
IF K$ = "2" THEN GOTO 870 



770 GOTO 740 

780 PRINT "PREPARA EL CASETE.' 
790 PRINT 

800 PRINT "Presiona una tecla 

cuando estes listo" 
810 K$ = INKEY$ 
820 IF K$ = "" THEN GOTO 810 
830 BSAVE "DATOS", 45000!, 

48700! 

840 PRINT "LA GRABACION HA 

TERMINADO." 
850 FOR T=l TO 500:NEXT T 
860 GOTO 250 
870 CLS 

880 PRINT "PREPARA EL 

CASETE." 
890 PRINT 

900 PRINT "Presiona una tecla 

cuando estes listo" 
910 K$ = INKEY$ 
920 IF K$ = "" THEN GOTO 910 
930 BLOAD"CAS: 
940 PRINT "LA CARGA HA 

TERMINADO." 
950 FOR T=l TO 500:NEXT T 
960 GOTO 250 



i \ 
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Aplicaciones 



BIBLIOTECA 
DE DATOS 





■ 


UN PROGRAMA DE BASE 


■ 


BIBLIOTECA 




DE DATOS 


■ 


ESTRUCTURA DEL PROGRAMA 


■ 


FICHERO. REGISTRO 


■ 


OPCIONES 




Y CAMPO 


■ 


RECUPERANDO 


■ 


CAPACIDAD DEL FICHERO 




LA INFORMACION 



¿Os gustaría crear vuestra propia 
base de datos y archivo? Vamos a inten- 
tar hacerlo contigo utilizando para ello 
el programa que presentamos a conti- 
nuación. 

Una base de datos es un programa 
concebido con una intención eminen- 
temente práctica y que permite al 
usuario guardar cualquier clase de in- 
formación en los soportes habituales 
para tal fin: cinta o disco. El programa 
siguiente permite introducir la infor- 
mación formateada de manera similar 
a las fichas de clientes o de control de 
artículos almacenados, que habitual- 
mente son utilizados en muchas em- 
presas. 

FICHERO, REGISTRO Y CAMPO 

Antes de adentrarnos en la expli- 
cación y presentación del programa, 
recordaremos muy brevemente algu- 
nas ideas básicas sobre las bases de da- 
tos. Debes saber a qué nos referimos 
al utilizar uno u otro concepto. Sin 
duda este repaso te servirá tanto 
cuando te hablen de este tema como 
cuando en INPUT volvamos a publi- 
car algún artículo sobre el mismo 
tema. 

El punto de partida es el fichero. 
Éste agrupa por afinidad de contenido 
y temática diferentes grupos de infor- 
maciones, a las que se accede a través 
del nombre codificado que se haya ad- 
judicado al mencionado fichero. 

Una vez hemos accedido al fichero 
nos encontramos con un grupo de in- 
formaciones, más precisamente lla- 
mados datos, semejantes a las fichas 
que antes mencionábamos y a las que 
llamamos registros. 

Dentro de cada registro existen di- 
ferentes informaciones compartimen- 
tadas y que ya no se subdividen más: 
se trata de los campos. 




Aplicaciones 



A modo de ejemplo podríamos de- 
cir que tu agenda telefónica sería el fi- 
chero; dentro del cual los diferentes 
registros, que se identificarían con los 
nombres de tus amigos y familiares, 
agrupan a los diferentes campos de in- 
formación: teléfono, dirección, dis- 
trito postal o cualquier otro dato que 
tú quieras introducir. 

Existen muchas maneras de traba jar 
con las bases de datos y de acceder a 
cada una de las informaciones que en 
ellos se haya introducido. Pero de mo- 
mento podemos dejar aquí este tema. 



LA CAPACIDAD DEL FICHERO 

Una base de datos ha de tener una 
capacidad adecuada a las dimensiones 



de la memoria del ordenador en el que 
se va a emplear. La mayor parte de los 
ordenadores domésticos como los 
MSX poseen una capacidad asimilable 
a unas 9.000 fichas del tipo que aquí 
vamos a utilizar. Sería extraño, sin 
embargo, que tus necesidades reba- 
saran o tan sólo se acercasen a esa can- 
tidad. 

Muy probablemente una de tus pri- 
meras necesidades sea crear una base 
de datos bibliográfica en la que intro- 
duzcas las fichas de tus libros. 



BIBLIOTECA 

El programa Biblioteca está conce- 
bido en un BASIC estándar, a fin de 
facilitar que los noveles usuarios com- 



prendan su estructura, concepción y 
funcionamiento. 

Biblioteca funciona introduciendo 
datos a través del teclado y cargando 
o grabando en cinta. En esta ocasión 
no hemos querido presentar un pro- 
grama complejo. Las rutinas de mo- 
dificación, borrado y búsqueda las 
añadiremos en próximos números, 
con lo que sucesivamente iremos com- 
pletando la base de datos, sin esfuerzo 
y con sesiones de «tecleo» bastante 
moderadas. 



ESTRUCTURA DEL PROGRAMA 

El programa consta de ocho rutinas 
y comienza a trabajar como fichero a 
partir de la línea 100. En ésta dimen- 
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sionamos las tablas para los campos 
que vamos a utilizar, mediante DIM, 
con lo que reservamos espacios de me- 
moria para crear 100 fichas completas. 
Evidentemente lo que necesitamos co- 
nocer de cada libro es su título, autor, 
editorial, fecha y lugar de edición, nú- 
mero de páginas, temática... 

A continuación, en la línea 140, des- 
plazamos al intérprete del BASIC en 
el ordenador para que ejecute la sub- 
rutina en la línea 1200. Ésta es una cu- 
riosa rutina que transforma a tu or- 
denador en una simulación de tele- 
tipo, con lo cual te damos unas breves 
instrucciones, las únicas, para que 
puedas hacer correr el programa sin 
ninguna dificultad. 

La iniciamos con un CLS para lim- 



piar la pantalla seguido de un bucle 
con el número de letras que van a salir 
por pantalla a medida que la sentencia 
READ vaya leyendo las líneas 
DATA. Para simular el sonido del te- 
letipo usamos el comando BEEP que 
se encarga de generar un pitido a me- 
dida que se imprimen letras. Para que 
las letras salgan horizontalmente, al fi- 
nal de la línea 1230 hemos puesto un 
";**. Si esto fuese omitido las instruc- 
ciones hubieran sido editadas vertical- 
mente. El punto y coma hace que cada 
carácter se imprima a continuación del 
otro. Cuando el bucle termina y no 
hay más DATA,s que leer, el RE- 
TURN de la línea 1400 nos devuelve 
a la línea 150, a partir de la cual co- 
mienza la rutina del menú de opcio- 
nes. Esta rutina está formada por los 
PRINT necesarios para la salida por 
pantalla de las opciones. 



OPCIONES 

En la línea 260 el ordenador espera 
que introduzcas el número de opción 
elegido, y es la línea siguiente. 270, la 
que se encarga de que el intérprete del 
BASIC ejecute la rutina correspon- 
diente. 

Si hemos optado por la opción «1», 
se limpia la pantalla y a continuación 
la rutina imprime los cuatro campos 
del fichero que vamos a utilizar. 

En la línea 430 se introducen los da- 
tos, siempre respetando el máximo de 
cien fichas, cifra que tú puedes modi- 
ficar dimensionando a tu medida. La 
línea 440 nos indica el número de ficha 
en el que estamos. 

La línea 450 detecta la longitud de 
los datos para el campo «TITULO». 
Si la longitud es 0, el programa inter- 
preta que damos por finalizada la en- 
trada de datos y nos lo indica con la 
edición de FIN DE DATOS, y vuelve 
al menú. 

De nuevo en el menú podemos 
comprobar que las fichas están en me- 
moria pulsando la opción 4. que nos 
las listará completas. Pulsando la op- 
ción 2, los datos entrados se grabarán 
en cinta. La línea 730 es la que se en- 
carga de abrir el cassette, llamado ca- 
nal 1, y la línea 740 ejecuta la graba- 
ción. 



RECUPERANDO LA 
INFORMACION 

Para recuperar la información al- 
macenada debemos pulsar la opción 3 
de menú. Una vez cargado, el orde- 
nador nos preguntará si queremos in- 
troducir más fichas, a lo que contes- 
taremos con un escueto «S», en caso 
afirmativo, y apretando cualquier otra 
tecla, en caso de que no aceptemos la 
invitación. 

Ahora de jaremos que teclees el pro- 
grama. No olvides que a partir del si- 
guiente número iremos ampliando las 
posibilidades del programa con rutinas 
para modificar, listar y acceder a las 
fichas a través de campos diferentes. 

10 CLS 

11 COLOR 15,1,1 
20 KEYOFF 

100 DIM TIT$(100) 
110 DIM AUT$(100) 
120 DIM EDI$(100) 
130 DIM OBS$(100) 
140 GOSUB 1200 
150 COLOR 15,1,1 
160 COLOR 15,7:CLS:LOCATE 13, 
1:PRINT" 

170 LOCATE 13,3:PRINT" 

BIBLIOTECA " 
180 LOCATE 13,4:PRINT" 



190 LOCATE 12,7:PRINT"MENU 
DE OPCIONES" 

191 LOCATE 9,8:PRINT" 



200 LOCATE 11, 10:PRINT"1.- 

ALTA DE FICHA" 
210 LOCATE 11, 12:PRINT"2.- 

GRABAR FICHERO" 
220 LOCATE 1 1, 14:PRINT"3. - 

CARGAR FICHERO" 
230 LOCATE 11, 16:PRINT"4.- 

LIST FICHERO" 
240 LOCATE 9,18:PRINT" 



250 LOCATE 1 1,20:PRINT"I N P 
UT-MSX" 

251 LOCATE 9,21:PRINT" 
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Aplicaciones 







380 


LOCATE 13,4:PRINT"FICHA 




"AUTOR " ; AUT$(X) 


260 


— 




NUM." 


490 


GOSUB 590 


LOCATE 15, 


390 


LOCATE 10, 


500 


LOCATE 1,22:INPUT 




24:INPUT"0PCI0N" ; 0P 




8:PRINT"TITUL0 :'* 


"EDITORIAL" ; EDI$(X) 


270 


ON OP GOSUB 290,660, 


400 


LOCATE 10, 


510 


GOSUB 590 




820,990 




10:PRINT"AUTOR 


520 


LOCATE 1,22:INPUT 


280 


goto 160 


410 


LOCATE 10, 


"OBSERVCNS";OBS$(X) 


290 


CLS 




12:PRINT"EDITORIAL:" 


530 


IFTIT$(X) = "" THEN GOTO 


300 


» ************************* 


420 


LOCATE 10, 


560 


310 


• * * 




14:PRINT"0BSERVCNS:" 


540 


GOSUB 590 


320 


ALTA DE FICHAS 


430 


FOR X=1TO100 


550 


NEXT 


330 


i * * 


440 


LOCATE 23,4:PRINTX 


560 


LOCATE 1,22:PRINT" 


340 


i ************************* 


450 


IF LEN(TIT$(X))>0 THEN 


FIN DE DATOS" 


350 


COLOR 15,1,1 




GOTO 550 


570 


FORA=1TO1000:NEXT 


o c rk 
¿60 


LOCATE 13,1:PRINT"ALTA 


460 


LOCATE 1,22:INPUT 


580 


RETURN 




DE FICHAS" 




"TITULO ";TIT$(X) 


590 


LOCATE 1,22:PRINT" 


370 


LOCATE 13,2:PRINT" 


470 


GOSUB 590 


610 


LOCATE 20,8:PRINTTIT$(X) 






480 


LOCATE 1,22:INPUT 


620 


LOCATE 20, 




10:PRINTAUT$(X) 
630 LOCATE 20, 12:PRINTEDI$(X) 
640 LOCATE 20, 

14:PRINT0BS$(X) 
650 RETURN 
660 CLS 

670 REM ********************** 
680 REM * CSAVE 
690 REM * 

700 REM ********************** 

710 COLOR 15,1,1 

720 LOCATE 13,10:PRINT" 

GRABANDO DATOS" 
730 OPEN "CAS:" FOR OUTPUT 

AS #1 
740 FOR X=l TO 100 
750 PRINT#1,TIT$(X) 
760 PRINT#1,AUT$(X) 
770 PRINT#1,1DI$(X) 
780 PRINT#1,0BS$(X) 
790 NEXT 
800 CL0SE#1 
810 RETURN 
820 CLS 
830 REM 
840 REM 
850 REM 
860 REM * 

870 REM ********************** 
880 COLOR 15,1 
890 LOCATE 13, 

10:PRINT"CARGANDO 

DATOS" 

900 OPEN"CAS:"FOR INPUTAS 



********************** 
* * 



CLOAD 
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* ******************* 



#1 

910 FOR X=l TO 100 
920 INPUT #1,TIT$(X) 
930 INPUT #1,AUT$(X) 
940 INPUT #1,EDI$(X) 
950 INPUT #l,OBS$(X) 
960 NEXT 
970 CLOSE #1 
980 RETURN 
990 CLS 
1000 REÍ 
1010 REM * 

1020 REM * LISTADO 
1030 REM * 

1040 REM * ****************** 
1050 LOCATE 11, 

l:PRINT"LISTADO DE 

FICHAS" 
1060 LOCATE 11,2:PRINT" 

1070 LOCATE 10, 

8:PRINT"TITULO :" 
1080 LOCATE 10, 

10:PRINT*'AUTOR :" 
1090 LOCATE 10, 

12:PRINT"EDITORIAL:" 
1100 LOCATE 10, 

14:PRINT"0BSERVCNS:" 
1110 FOR X=l TO 100 
1120 LOCATE 20, 

8:PRINTTIT$(X) ; " 
1130 LOCATE 20, 

10:PRINTAUT$(X) ; " 
1140 LOCATE 20, 

12:PRINTEDI$(X) ; " 
1150 LOCATE 20, 

14:PRINT0BS$(X) ; " 
1160 LOCATE 1,22:INPUT"MAS 

FICHAS";R$ 
1170 IF R$="S" THEN NEXT 
1180 RETURN 
1190 END 

1200 CLS:FOR A=l TO 544 

1210 BEEP 

1220 READX 

1230 PRINTCHR$(X); 

1240 NEXT 

1250 DATA 32,32,32,32,32,32, 
32,32,32,32,32,32,32, 
73,78,83,84,82,85,67, 
67,73,79,78,69,83 

1260 DATA 32,32,32,32,32, 



1270 

1280 

1290 
1300 

1310 



1320 

1330 
1340 



1350 
1360 
1370 

1380 
1390 



32,32, 

32,32, 

32,32, 

DATA 

32,32, 

32,32, 

32,32, 

DATA 

32,32, 

32,32, 

32,32, 

DATA 

32,32, 

DATA 

83,69, 

69,32, 

65,77, 

DATA 

82,77, 

32,32, 

32,67, 

73,69, 

DATA 

68,69, 

69,82, 

32,32 

DATA 

65,83, 

82,46 

DATA 

32,32, 

32,32, 

32,32, 

32,32, 

32,32, 

32,32, 

32,32, 

32,32, 

DATA 

79,32, 

67,73, 

DATA 

79,32, 

67,69, 

DATA 

82,32, 

78,67, 

65,32 

DATA 

65,82, 

DATA 

32,32, 



32,32, 
32,32, 
32,32, 
32,32, 
32,32, 
32,32, 
32,32, 
32,32, 
32,32, 
32,32, 
32,32, 
32,32, 
32,32, 
69,83, 
78,67, 
80,82, 
65,32 
84,69, 
73,84, 
67,82, 
85,65, 
82,32 
84,73, 
32,70, 
79,32, 



32,32,32, 
32,32,32, 
32 

32,32,32, 
32,32,32, 
32,32,32, 
32 

32,32,32, 
32,32,32, 
32,32,32, 
32 

32,32,32, 

32,32,32 

84,69,32, 

73,76,76, 

79,71,82, 

32,80,69, 
73,82,65, 
69,65,82, 
76,81,85, 

80,79,32, 
73,67,72, 
81,85,69, 



81,85,73,69,82, 
32,72,65,67,69, 



32,32, 
32,32 
32,32 
32,32 
32,32 
32,32 
32,32 
32,32 
32,32 ¡ 
83,85, 
69,83 
76 

44,32, 
83,69 : 
83,73, 
32,32, 
85,78 
69,32 



32,32,32, 

32,32,32, 

32,32,32, 

32,32,32, 

32,32,32, 

32,32,32, 

32,32,32, 

32,32,32, 

32,32 

32,85,83, 

32,70,65, 

89,32,78, 

32,78,69, 

84,65,32 

32,83,69, 

32,76,73, 

80,65,82, 



32,32,32,32,32,32,32, 
32,32,32,32,32,32,32, 
32,32,32,32,32,32,32, 
32,32,32,32,32,32,32, 
32,32,32,32,32 

1400 DATA 76,79,32,85,78, 
73,67,79,32,81,85,69, 
32,72,65,83,32,68,69, 
32,84,69,78,69,82,32, 
69,78,32,67,85,69,78, 
84,65,32 

1410 DATA 32,69,83,32,81, 
85,69,32,80,65,82,65, 
32,84,69,82,77,73,78, 
65,82,32,68,69,32,67, 
82,69,65,82,32 

1420 DATA 32,70,73,67,72, 
65,83,68,69,66,69,83, 
32,80,85,76,83,65, 
82,32 

1430 DATA 60,69,78,84,69, 
82,62,44,67,85,65,78, 
68,79,32,69,76,32,80, 
82,79,71,82,65,82,65, 
77,65,32 

1440 DATA 84,69,32,80,73, 
68,65,32,69,76,32,67, 
65,77,80,79,32,60,84, 
73,84,85,76,79,62,46 

1450 DATA 32,32,32,32,32, 
32,32,32,32,32,32,32, 
32,32,32,32,32,32,32, 
32,32 

1460 DATA 192,192,192,192, 
192,192,192,192,192, 
192,0 

1470 FOR A=l TO 
1000: NEXT 

1480 RETURN 



77,65,78,69,74, 
76,79,32,46 
32,32,32,32,32, 
32,32,32,32,32, 



INIO 

□ LV I OI 



□ NQ 



SIEMPRE QUE 
NOS ESCRIBAS 
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Programación 



SWAPS: NUMEROS 
INVERTIDOS (Y II) 



¿Aceptáis el reto que os hace Swaps? 
Pues bien, por fin podréis contestar a la 
pregunta. 

El presente artículo constituye la se- 
gunda y última parte del programa, con 
lo que dispondréis del juego completo. 

En el número anterior os facilita- 
mos la primera parte del programa 
con la que pudisteis comprobar, y ha- 
cer correr en la pantalla, la presenta- 
ción del juego. 

También vimos la importancia que 
tienen las presentaciones en general, 
así como toda la información referente 
al juego en sí, o sea, las bases y al- 
gunos secretos del programa con los 
que podréis crear, si lo deseáis, nuevas 
versiones sobre el mismo. 

Para los interesados en la progra- 
mación, que sienten ese gusanillo de la 
curiosidad, seguidamente os explica- 
remos el funcionamiento del pro- 
grama desde el inicio, aunque sin en- 
trar en detalles concretos, ya que dada 
la extensión del mismo podríamos 
alargar el tema excesivamente. Aun 
así. creemos que con nuestros comen- 
tarios podréis comprender y seguir 
perfectamente el desarrollo del 
mismo. 



FUNCIONAMIENTO DEL 
PROGRAMA 

Al comienzo del programa presen- 
tamos la estructura del mismo, lo que 
será el esqueleto que comprende todas 
las llamadas a subrutinas del pro- 
grama. 

Esta forma de estructura será el 
proceso a seguir en cualquier tipo de 
juego: 

Inicialización Fin de juego 

Presentación 

Instrucciones 

Juego 

Fin de partida 



Además de estos planteamientos, 
en apariencia sencillos, hemos dis- 
puesto una rutina de Temporización 
Concurrente, que la CPU ejecuta a la 
vez que el propio programa del juego. 

Seguidamente vamos a comentar es- 
tos apartados, así como las subrutinas 
más importantes que figuran en ellos. 

Antes de comenzar el programa y 
como nota importante para todas las 
personas que hayan introducido la pri- 
mera parte del mismo, es que deberán 
borrar la línea 405, que tenía como 
función saltar al final del programa 
después de ver la presentación, ya que 



no disponíais de las instrucciones del 
juego. Si no borráis estas sentencias, 
aunque introduzcáis la segunda parte 
del programa, éste no correría. 

El programa comienza con la Inicia- 
lización. Dentro de este apartado está 
la subrutina que prepara el sistema 
para el juego, que localizamos en la lí- 
nea 700 a 760, donde definimos un an- 
cho de 32 caracteres, una Screen 5 y 
Sprites de gran tamaño. 

La siguiente rutina es la que define 
el color de fondo y los colores de las 
letras con que trabajaremos, que va de 
la línea 770 a 870; y la rutina que de- 
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p r ogramaf¡ón 



■ 


FUNCIONAMIENTO 


DEL PROGRAMA 


■ 


PRESENTACION 


■ 


INSTRUCCIONES 


■ 


EL JUEGO 



VENTANAS 

NUMEROS NUEVOS 



SOLUCION 



FIN DE JUEGO 



TRES SEGUNDOS 



fine los Sprites del nombre del juego, 
que comprende: de la línea 900 a 1000, 
el primer carácter «S»; de ta línea 1010 
a 1110, el segundo «W»; de la línea 
1 120 a 1220, el tercero «A», y, por úl- 
timo, de la línea 1230 a la 1340. el ca- 
rácter «P». Dado que el siguiente ca- 
rácter volvería a ser una «S», y ésta ya 
está definida, no será necesario ha- 
cerlo de nuevo. 



PRESENTACION 

En él figura la rutina que genera los 
números que forman la trama de 




fondo de la pantalla, y que va desde la 
línea 1350 hasta la 1460; la siguiente 
rutina va de la línea 1470 a 1550, y es 
la encargada de poner las letras que 
forman el nombre SWAPS en la pan- 
talla, caracteres de los que ya dispo- 
nemos desde que definimos los Spri- 
tes. 

Otra rutina que figura en este apar- 
tado es la referente al primer despla- 
zamiento de las letras, que localiza- 
mos en la línea 1560 hasta la 1680; 
otro segundo desplazamiento que va 
de la línea 1690 a 1800, en la que los 
caracteres vuelven a subir por la pan- 
talla hasta ocupar los lugares correc- 
tos. 

Una posterior subrutina, que va de 
la línea 1890 a 1980. sitúa la firma y el 
nombre de la revista en la pantalla; y, 
por último, la rutina que va de la línea 
1990 a 2070, que se encarga de ir de- 
colorando gradualmente la pantalla. 



INSTRUCCIONES 

En primer lugar llama a la subrutina 
que va de la línea 2080 a 2160, en la 
que cambiamos a la pantalla y defi- 
nimos el color. La siguiente subrutina 
va de la línea 2170 a 2320, que escri- 
birá en la pantalla su reto al futuro ju- 
gador. Para terminar saltamos a la ru- 
tina que va de la línea 2330 a 2790, que 
es quien escribe en la pantalla las ins- 
trucciones del juego y el funciona- 
miento de las teclas de función. 

Con estas últimas subrutinas hemos 
finalizado la primera parte del pro- 
grama, que comprende todo lo refe- 
rido a la puesta en marcha de la má- 
quina, la presentación y las instruccio- 
nes del juego. 



EL JUEGO 

Para comenzar llamamos a la subru- 
tina que va de la línea 2800 a la 3270. 



Esta rutina es la encargada de inicia- 
lizar la pantalla para el juego, define 
que trabajará en la Screen 5, define los 
colores, así como en qué lugar va a si- 
tuar las ventanas en la pantalla. Di- 
chas ventanas serán las correspondien- 
tes a la combinación de números vie- 
jos, los nuevos, al número de intentos, 
al contador de tiempo y a la solución. 
A continuación define cómo será el 
color «S». que corresponde al relieve 
de la ventana; el «F» que es el color 
de fondo del rectángulo; el «B», que 
es el color del perfil de la ventana; y 
el «T», que será el color de la tinta del 
carácter a escribir. 



VENTANAS 

Una vez definidas, pasamos a la ru- 
tina de Formateo de Ventanas, que va 
de la línea 2990 a 3270, que se ocupará 
de poner en la pantalla las ventanas 
definidas anteriormente, empleando 
la pequeña subrutina de la línea 3280 
a 3330, que es quien dibuja la ventana 
en relieve. 

De la línea 3160 a 3270 está la rutina 
que escribe los rótulos dentro de las 
ventanas. 

El siguiente paso es saltar a la rutina 
encargada del Inicio de Juego, que va 
de la línea 4380 a la 4460. 

Esta rutina es de gran importancia, 
dado que programa el sistema de 
forma que cada segundo vaya a la 
subrutina de Temporización Concu- 
rrente, que hallamos en la línea 5390, 
para sumar un segundo en el contador 
de tiempo. 

Además se encarga de poner a to- 
dos los contadores: cronómetro, tem- 
porizador, contador de ayudas y el 
contador de número de intentos. Ter- 
mina ejecutando la instrucción de IN- 
TER VAL ON, que da la orden de co- 
mienzo del contador de tiempo. 

La siguiente rutina que vemos en el 



) 
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programa principal es la referida a la 
Generación, que va de la línea 3340 a 
la 3510. Esta rutina genera una lista 
ordenada de números. Seguidamente 
define el nivel de dificultad de despla- 
zamientos de la cifra ordenada, que es 
de 5 cambios; dicha instrucción la en- 
contramos en la línea 3430, de la que 
debéis tomar buena nota, en caso de 
que queráis cambiar el nivel de difi- 
cultad. 

Para continuar llama a la subrutina 
de Movimiento de números, que va de 
la línea 4530 a 4560, donde figura el 
número de las líneas donde se encuen- 
tran las rutinas que realizan los mo- 
vimientos de las cinco teclas de Fun- 
ción. Estas rutinas también deberéis 
tenerlas en cuenta, si en alguna oca- 
sión queréis cambiar los desplaza- 
mientos que efectúan dichas teclas. 

Volvemos al programa principal, 
que nos envía a la rutina de Impresión 
de Números Viejos, que va de la línea 
3520 a 3630. 

Observaréis que en las rutinas que 
afectan a la escritura en pantalla, de- 
tenemos temporalmente el contador 
de tiempo. Esto se debe a que no po- 
demos permitir que mientras se está 
imprimiendo un texto en la pantalla, 
éste se quede interrumpido, por tener 
que acudir a la subrutina de Tempo- 
rización Concurrente, que incrementa 
un segundo en el contador de tiempo; 
ya que, al volver, continuaría escri- 
biendo con el puntero situado donde 
hubiera terminado de escribir, es de- 
cir, en el contador de tiempo y no en 
la ventana correspondiente. 

Lo mismo sucede con el F6, que al 
afectar a la pantalla directamente, ter- 
minando de ejecutar su rutina, el pun- 
tero nos quedaría situado en el ex- 
tremo inferior de la pantalla y no den- 
tro de la ventana en cuestión. Para 
evitar estos problemas, a veces inhi- 
bimos estas funciones, que volvemos a 
autorizar en cuanto es posible. 



NUMEROS NUEVOS 

La siguiente rutina es la referente a 
la Impresión de los Números Nuevos, 
que va de la línea 3640 a la 3750. 

Saltamos a la rutina de la línea 3760 
a 3820, que es la rutina de Interrup- 



ción de Teclado, que nos da las posi- 
ciones donde están definidas las seis 
teclas de función, y nos autoriza a uti- 
lizarlas. 

A excepción de la F6, el resto de las 
pequeñas subrutinas tienen como mi- 
sión poner en la variable C$ un valor, 
que será un 1, 2, 3, 4, o 5, según cual 
sea la tecla pulsada desde el exterior. 

La rutina de servicio de la tecla F6 
está en la línea 4040 hasta la 4370. El 
funcionamiento es distinto al resto, ya 
que al llamarla incrementa el contador 
de ayudas, interrumpe el contador de 
tiempo (para que no le afecte en la es- 
critura en pantalla), llama a la subru- 
tina de la línea 3280, que dibujará una 
ventana en la pantalla, y escribe «la 
solución es». Si el número de despla- 
zamientos que debe escribir en la pan- 
talla es superior a la capacidad de dos 
líneas, escribe «muy difícil». Al fina- 
lizar vuelve a permitir el contador de 
tiempo, y pone el registro TB igual a 
3 (cuando veamos la rutina de Inte- 
rrupción Concurrente, comprendere- 
mos la importancia de esta variable). 

La siguiente subrutina está muy li- 
gada a la que terminamos de explicar, 
ya que se trata de esperar una jugada. 
Primeramente borra el valor de la va- 
riable C$. En la siguiente instrucción 
bloquea la ejecución de la rutina hasta 
que C$ tenga un valor, que viene dado 
al pulsar una tecla de función. 

El siguiente paso es llamar a la ru- 
tina de la línea 3520 a 3630, que im- 
prime la cadena de números viejos. 

Volvemos al programa principal, 
que llama a la rutina de Movimiento 
de los números, que va de la línea 
4530 a 4560. 

A su vez, esta subrutina llama a las 
rutinas de las teclas de función, que 
efectuarán el desplazamiento de los 
números. 



SOLUCION 

En la línea 4820 se ejecuta la subru- 
tina de Crear la Solución, donde se ha 
llevado un contador de todas las ju- 
gadas efectuadas, para que en caso de 
pedirle la solución pueda ver en fun- 
ción de las jugadas ya hechas, cuán- 
tas le faltan para el final, terminan- 
do en la línea 4850, que, a continua- 



ción, la retorna al programa principal. 

Para continuar saltamos a la rutina 
de la línea 4860. que es el Contador de 
Intentos, y que llega hasta la línea 
4940. Esta rutina, tal como indica su 
nombre, lleva el contador de intentos 
del juego, escribiendo el número en la 
pantalla, dentro de la ventana corres- 
pondiente. 

Volvemos de nuevo al programa 
principal que salta a la rutina de Im- 
primir la Lista de Números Nuevos, 
que ocupa desde la línea 3640 a la 
3750. 

Saltamos a continuación a la rutina 
de la línea 4950 a 5010, que com- 
prueba si la partida ha llegado al final. 
Para ello revisa la colocación de la 
combinación de números de una 
forma bastante curiosa: va sumando 1 
en un contador, cada vez que ve un re- 
sultado en la posición correcta. Si 
cuando termina de contar, la suma es 
igual a 9, quiere decir que la partida 
ha terminado. Si el número es inferior 
a 9, salta a la rutina de la línea 490 del 
programa principal, donde se repetirá 
el proceso de una nueva jugada. Si la 
partida ha finalizado salta a la rutina 
de la línea 5020 para darnos la pun- 
tuación. El funcionamiento es el si- 
guiente: Detiene el contador de 
tiempo, nos felicita, escribe el número 
de intentos realizados, nos dice cuán- 
tas ayudas hemos recibido y también 
el tiempo transcurrido, retornando al 
programa principal en la línea 5200. 

Saltamos a la línea 5210, que escribe 
en la pantalla «¿Otra partida (S/N)? 
Es indiferente si el carácter «S» o «N», 
está en mayúscula o minúscula, ya que 
lo interpretará igualmente. 

Si deseamos otra partida, saltare- 
mos a la línea 610 del programa prin- 
cipal, que llama a la subrutina que 
vuelve a iniciar la pantalla para el 
juego. 



FIN DE JUEGO 

Si no queremos seguir jugando, 
salta a la rutina de Fin de Juego, que 
vuelve a restaurar el estado normal de 
la máquina. 

Al final del listado del programa, en 
la línea 5390, veréis la subrutina de 
Temporización Concurrente a la que 
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programo^ 



nos hemos referido en varios puntos 
de este artículo. 

Observaréis que en primer lugar 
está el contador de tiempo que va in- 
crementando cada segundo, inhibe la 
tecla F6 para escribir el tiempo en la 
pantalla, volviendo a permitirla de 
nuevo. 

¿Recordáis que cuando explicába- 
mos la rutina de servicio de la tecla F6, 
hemos dicho que la última instrucción 
era TB=3? Pues bien, TB es la varia- 
ble que indica el tiempo que perma- 
necerá en pantalla la solución del 
juego. La rutina de tiempo real, mira 
si el TB tiene algún valor. Si es igual 
a 0, salta a la instrucción RETURN, 
que la devolverá a la rutina desde 
donde le llamarán. Si el valor es su- 
perior a 0, decrementa el contador 
hasta que lo sea. borrando la solución 
de la pantalla. 

De esta forma la solución sólo será 
visible durante tres segundos. 

2800 ' Inicia pantalla de juego 
2810 ' 



2820 SCREEN 5 



2830 


CLOSE 




2840 


OPEN "grp:" FOR OUTPUT 




no * 1 




2850 






2860 






2870 


Ay) — DyJ .\\fj — 






:f\yj— 10(¿):n)fl- ¿¿. : 


LltUI 


2880 


A i — DyJ : Y 1 — OD 






Ai i crk ni O O 

:A1 = 1 oy): H 1 = ¿¿ : 


'viejo 


2890 


Ac. — DyJ .\¿.— \.¿.D 






:A2=150:H2 = 22 : 


'nuevo 


2900 


X3=15 :Y3=45 






:A3=100:H3 = 22 : 


'inten 


2910 


X4=130:Y4=45 






:A4=100:H4 = 22 : 


'tiemp 


2920 


X5 = 50 






:Y5=165:A5=150:H5 = 40 




:'S0IUC 




2930 


S0=1 :F0=14 :B0 


= 9 




T0=15 




2940 


Sl = l :F1 = 14 :B1 


= 9 




:T1 = 1 




2950 


S2 = l :F2 = 7 :B2 = 


9 




:T2=1 




2960 


S3=l :F3=14 :B3 


= 9 




:T3=1 




2970 


S4=l :F4=14 :B4 


= 9 



:T4=1 

2980 S5=l :F5=14 :B5 = 9 
:T5=1 

2990 'Formateo de ventanas 
3000 ' 



3010 SF=S0:FF=F0:BF=B0:TF 
=T0 

3020 XF=X0:YF=Y0:AF= 

A0:HF=H0 
3030 GOSUB 3280 
3040 SF=S1:FF=F1:BF=B1; 

TF=T1 

3050 XF=X1:YF = Y1:AF = A1; 

HF=H1 
3060 GOSUB 3280 
3070 SF=S2:FF=F2:BF=B2:TF 

=T2 

3080 XF=X2:YF=Y2:AF= 

A2:HF=H2 
3090 GOSUB 3280 
3100 SF=S3:FF=F3:BF=B3; 

TF=T3 

3110 XF=X3:YF=Y3:AF=A3:HF 
= H3 

3120 GOSUB 3280 

3130 SF=S4:FF=F4:BF=B4:TF 
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programo"*" 



=T4 

3140 XF=X4:YF=Y4:AF= 

A4:HF=H4 
3150 GOSUB 3280 
3160 'Escritura en las ventanas 
3170 ' 



3180 PRESET (X0 + 8, 

Y0-4+INKH0/2)) 
3190 COLOR T0,F0 
3200 PRINT#1," JUEGO DEL 

SWAPS " 
3210 PRESET (X3 + 8, 

Y3-4 + INKH3/2)) 
3220 COLOR T3.F3 
3230 PRINT#1, "Intento 
3240 PRESET (X4+8, 

Y4-4 + INT(H4/2)) 
3250 COLOR T4.F4 
3260 PRINT#1, "Tiempo 
3270 RETURN 

3280 'Dibujo de una ventana en 
relieve 

3290 ' 



3300 LINE (XF+5,YF+5)-(XF + 
5 + AF,YF+5+HF),SF,BF 

3310 LINE (XF,YF)-(XF + AF.YF 
+ HF),FF,BF 

3320 LINE (XF, YF)-(XF + AF,YF 
+ HF), BF, B 

3330 RETURN 

3340 'Generación de números 

3350 ' 



3360 A$ = "" 
3370 FOR 1 = 1 TO 9 
3380 A(l) = l 
3390 NEXT I 

3400 'D=1+VAL(RIGHT$ 
(STR$(7*TIME),D) 
3410 A = RND(INT(-TIME)) 
3420 VI =0 

3430 DI = 5:'Nivel de dificultad 

inicial 
3440 FOR 1 = 1 TO DI 
3450 NU = INT(RND(I)*5)+1 
3460 IF NU = VI GOTO 3450 
3470 VE = NU 

3480 A$=A$ + RIGHT$(STR$ 
(NU),1) 



3490 C = NU:GOSUB 

4530 
3500 NEXT I 
3510 RETURN 
3520 'Impresión de números 

viejos 

3530 ' 



3540 INTERVAL OFF 
3550 KEY (6) OFF 
3560 FOR 1 = 1 TO 9 
3570 PRESET 

(Xl+4+(15*(l-l)), 

Y1-4 + INT 

(Hl/2)) 
3580 COLOR Tl.Fl 
3590 PRINT#1,A(I); 
3600 NEXT I 
3610 INTERVAL ON 
3620 KEY (6) ON 
3630 RETURN 
3640 'Impresión de números 

nuevos 

3650 ' 



3660 INTERVAL OFF 
3670 KEY (6) OFF 
3680 FOR 1 = 1 TO 9 
3690 PRESET (X2 + 4 + U5* 

(l-l)),Y2-4+INT 

(H2/2)) 
3700 COLOR T2.F2 
3710 PRINT#1,A(I); 
3720 NEXT I 
3730 INTERVAL ON 
3740 KEY (6) ON 
3750 RETURN 
3760 'Definición de teclas 
3770 ' 



3780 ON KEY GOSUB 3830, 
3870,3920,3960,4000, 
4040 

3790 FOR 1=1 
TO 6 

3800 KEY(I) ON 

3810 NEXT I 

3820 RETURN 

3830 'Servicio de Fl 

3840 ' 

3850 C$ = "1":C=1 

3860 RETURN 



3870 'Servicio de F2 

3880 ' 

3890 C$ = "2":C = 2 
3900 BEEP 
3910 RETURN 
3920 'Servicio de F3 

3930 ' 

3940 C$ = "3":C=3 
3950 RETURN 
3960 'Servicio de F4 

3970 ' 

3980 C$="4":C=4 
3990 RETURN 
4000 'Servicio de F5 

4010 ' 

4020 C$=5"5":C=5 
4030 RETURN 
4040 'Servicio de F6 

4050 ' 

4060 BEEP 
4070 AY=AY+ 1 
4080 B$ = "" 

4090 FOR W=l TO LEN(A$) 
4100 B$ = B$ + MID$(A$,LEN(A 

$)-W+l,l) + "," 
4110 NEXT W 
4120 INTERVAL OFF 
4130 SF=S5:FF=F5:BF=B5: 

TF=T5 
4140 XF=X5:YF=Y5:AF= 

A5:HF=H5 

4150 GOSUB 3280 

4160 PRESET (X5+8.Y5+6) 

4170 COLOR T5.F5 

4180 PRINT #1," La solución es 
_ i» _ 

4190 IF LEN(B$)<33 GOTO 
4240 

4200 PRESET (X5+16.Y5+ 
23) 

4210 COLOR T5.F5 
4220 PRINT #1,"MUY DIFICIL 
!" 

4230 GOTO 4350 
4240 IF LEN(B$)<16 GOTO 
4320 

4250 PRESET (X5+16.Y5+ 
18) 

4260 COLOR T5.F5 
4270 PRINT #1,MID$(B$,1,15) 
4280 PRESET (X5+ 16, Y5 + 28) 
4290 COLOR T5.F5 
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4300 PRINT #1,MID$(B$,17, 

LEN(B$)-16) 

4310 GOTO 4350 

4320 PRESET (X5+ 16.Y5 + 23) 

4330 COLOR T5.F5 

4340 PRINT #1,6$ 

4350 INTERVAL ON 

4360 TB=3 

4370 RETURN 

4380 'Inicio del juego 

4390 * 

4400 ON INTERVAL=50 GOSUB 
5390 

4410 TM = 0:'reset cronometro 

4420 TB = 0:'reset temporizador 

4430 AY=0:'reset cont ayudas 

4440 N = 0:'reset num intentos 

4450 INTERVAL ON 

4460 RETURN 

4470 'Espera jugada 

4480 • 

4490 C$ = "" 

4500 IF C$ = "" GOTO 4500 

4510 BEEP 

4520 RETURN 

4530 'Movimiento de los números 

4540 ' 



4550 ON C GOSUB 4570,4620, 

4670,4720,4770 
4560 RETURN 
4570 'Movimiento "1" 

4580 ' 

4590 SWAP A(1),A(4) 
4600 SWAP A(2),A(3) 
4610 RETURN 
4620 'Movimiento "2" 

4630 ' 

4640 SWAP A(2),A(5) 
4650 SWAP A(3),A(4) 
4660 RETURN 
4670 'Movimiento "3" 

4680 ' 

4690 SWAP A(3),A(7) 
4700 SWAP A(4),A(6) 
4710 RETURN 
4720 'Movimiento "4" 

4730 ' 

4740 SWAP A(5),A(8) 
4750 SWAP A(6),A(7) 
4760 RETURN 



4770 'Movimiento "5" 

4780 ' 

4790 SWAP A(6),A(9) 

4800 SWAP A(7),A(8) 

4810 RETURN 

4820 'Calcula la solución 

4830 ' 



4840 IF RIGHT$(A$,1)=C$ 
THEN A$ = LEFT$(A$, 
LEN(A$)-1) ELSE 
A$=A$+C$ 

4850 RETURN 

4860 'Contador de intentos 

4870 ' 



4880 N = N+1 

4890 INTERVAL OFF 

4900 PRESET (X3 + (8*8), 

Y3-4 + INT(H3/2)) 

4910 COLOR T3.F3 

4920 PRINT#1,N 

4930 INTERVAL ON 

4940 RETURN 

4950 'Ver si es fin de partida 

4960 ' 



4970 J=0 

4980 FOR 1 = 1 TO 9 

4990 IF A(l)=l THEN J=J+1 

5000 NEXT I 

5010 RETURN 

5020 'Puntuación 

5030 • 

5040 INTERVAL OFF 

5050 COLOR 15,4,4 

5060 CLS 

5070 PRESET (20,10) 

5080 PRINT #1, "FELICIDADES ! 
!" 

5090 PRESET (20,40) 

5100 PRINT #1, "Lista ordenada 

5110 PRESET (20,70) 
5120 PRINT #1,"A los";N ; " 

intentos." 
5130 IF AY = THEN A$ = "sin 

ayuda" 

5140 IF AY=1 THEN A$ = "con 1 

ayuda" 
5150 IF AY>1 THEN 

A$ = "con" + STR$(AY) + " 



ayudas" 
5160 PRESET (20, 
90) 

5170 PRINT #1,A$ 
5180 PRESET (20, 
110) 

5190 PRINT #1,"Y en" ; TM ; " 

segundos." 
5200 RETURN 
5210 'Otra ? 

5220 ' 

5230 PRESET (20, 

170) 

5240 PRINT #1, "Otra partida (S/ 
N) ?" 

5250 A$ = INKEY$:IF A$ = "" 

GOTO 5250 
5260 IF A$ = "s" OR A$ = "S" 

GOTO 5290 
5270 IF A$ = "n" OR A$ = "N" 

GOTO 5290 
5280 GOTO 5250 
5290 RETURN 
5300 'restaura el estado de la 

maquina. 
5310 ' 



5320 SCREEN 

5330 COLOR 15,4,4 

5340 KEYON 

5350 WIDTH 40 

5360 COLOR = NEW 

5370 CLS 

5380 RETURN 

5390 'Rutina de tiempo rea 

5400 ' 



5410 TM=TM + 1 

5420 KEY (6) OFF 

5430 PRESET (X4+(8*7), 

Y4-4+INT (H4/2)) 
5440 COLOR T4.F4 
5450 PRINT #1,TM 
5460 KEY (6) ON 
5470 IF TB = GOTO 

5500 
5480 TB=TB- 1 
5490 IF TB = THEN LINE (X5, 

Y5)-(X5+A5 + 5, 

Y5 + H5 + 5),4,BF 
5500 RETURN 
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ENTENDIENDO EL PEEK 
Y EL POKE 



Casi siempre puedes utilizar tu or- 
denador sin preocuparte para nada de 
la forma en que trabaja su memoria. 
Por ejemplo, cuando escribes A = 67, 
el ordenador ya se ocupa de disponer 
posiciones libres de la memoria a las 
cuales asigna la etiqueta «A» y alma- 
cena en ellas el valor 67. Cuando más 
tarde tú tecleas PRINT A, el ordena- 
dor sabe exactamente adonde tiene 
que ir para encontrar de nuevo a A. 
Todo esto se hace automáticamente y 
solamente cuando empiezas a apren- 
der el lenguaje máquina se hace ne- 
cesario decir al ordenador qué direc- 
ciones de memoria tiene que usar. 

Pero existe una manera de observar 
desde el BASIC la memoria del or- 
denador, que te permite utilizar real- 



mente en tus programas los valores al- 
macenados en ella. También puedes 
cargar tus propios valores para modi- 
ficar la forma en que se comporta el 
ordenador. 

Las herramientas de que se sirve el 
BASIC para hacer esto son PEEK y 
POKE. El PEEK te permite observar 
un valor almacenado en la memoria, 
mientras que el POKE se utiliza para 
cargar en memoria tus propios valo- 
res. 

COMO FUNCIONAN EL PEEK Y EL 
POKE 

Tu ordenador MSX es capaz de di- 
reccionar 65535 posiciones de memo- 



ria (&HFFFF en hexadecimal), que es 
lo que se llama 64K. Una parte de esta 
memoria es ROM, que es la memoria 
en la que sólo se puede leer pero no 
escribir. El contenido de la ROM es 
fijo por lo que, si bien puedes leer lo 
que hay en ella utilizando PRINT 
PEEK, no puedes POKEar nada en 
ella para modificar su contenido. La 




Aquí tienes la oportunidad de ejercer 
un control directo sobre tu ordenador, 
mirando lo que hay en su memoria y al- 
ternando o utilizando los valores que 
contiene. Y además puedes hacer todo 
esto también en BASIC. 



■ 


COMO FUNCIONAN EL PEEK 


Y EL POKE 


■ 


UTILIZACION DEL PEEK 


Y EL POKE 



OTROS POKES 




parte restante de la memoria es RAM, 
que significa memoria de acceso alea- 
torio, también llamada memoria de 
lectura y escritura. En esta parte de la 
memoria puedes hacer tanto PEEK 
como POKE, siendo aquí donde se al- 
macenan los programas y las variables 
del BASIC. 

El siguiente programa te permitirá 
observar cualquier posición de la me- 
moria de tu ordenador, tanto en la 
ROM como en la RAM: 

10 INPUT "DIRECCION. ..";D 

20 N = PEEK(D) 

30 PRINT "CONTENIDO. ..";N 

40 PRINT 

50 GOTO 10 

Teclea el número que quieras entre 
y 65535 y podrás ver lo que hay en 
esa posición de memoria, aunque si 
haces un PEEK en determinadas zo- 
nas puede que obtengas un valor falso 
en lugar del valor que realmente hay 
allí almacenado. 

El contenido de la RAM dependerá 
de lo que estés haciendo en ese mo- 
mento con tu ordenador, pero el con- 
tenido de la ROM es fijo. 

Observa que siempre obtienes nú- 
meros enteros entre y 255 (0 y 
&HFF en hexadecimal). En hexade- 
cimal son números entre y FF, lo que 




significa que son bytes (un 
byte es un número hexade- 
cimal de dos dígitos). Toda 
posición de memoria con- 
tiene un solo byte y cualquier 
número mayor no puede ser 
almacenado en una única po- 



sición de memoria. Si le sumas 1 al nú- 
mero hexadecimal FF, obtendrás el 
número 01 00. Este número requiere 
ya dos bytes para su representación 
por lo que para ser almacenado ne- 
cesita dos posiciones de memoria: 01 
en una de ellas y 00 en la otra. 

Con el programa siguiente puedes 
POKEar números en la memoria. Por 
el momento POKEa solamente los by- 
tes de uno en uno, es decir valores en- 
tre y 255. 

10 PRINT"CONTENIDO "; 

PEEKÍ35000) 
20 INPUT "NUMERO(0-255).."¡ 

N 

30 POKE 35000.N 
40 PRINT"NUEVO 

CONTENIDO. "¡PEEK 35000 
45 PRINT 
50 GOTO 20 

En hexadecimal esta posición sería 
&H88B8. 

En primer lugar el programa pre- 
senta el contenido de la posición de 
memoria y a continuación POKEa tu 
número en la misma y presenta su con- 
tenido por segunda vez para que pue- 
das comprobar que tu número está 
realmente allí. 

Puedes cambiar desde esa dirección 
de memoria a cualquier otra dirección 
que desees. Observa que si intentas 
POKEar algo en ROM no sucede 
nada, aunque no pierdes nada por in- 
tentarlo. Puede que tu sistema se cuel- 
gue o haga cosas extrañas si POKEas 
algo en determinadas zonas de la 



RAM, concretamente entre la direc- 
ción 62336 y la 65535 (en hexadecimal 
serían &HF380 y &HFFFF). pues se 
trata del sistema operativo del orde- 
nador. Pero tampoco en este caso su- 
cederá nada grave. Limítate a apagar 
unos momentos tu máquina para ini- 
cializar la memoria. 

Intenta ahora POKEar un número 
mayor que 255 (que en hexadecimal 
sería &HFF) y observa lo que sucede. 
Como sólo puedes poner un byte en 
cada posición, recibirás un mensaje de 
error. 

Si observas los mapas de memoria 
que vienen en el manual, verás que 
hay una sección de la memoria dedi- 
cada íntegramente a la presentación 
en pantalla. Se trata de la llamada 
VRAM, o sea, memoria de vídeo, que 
en los ordenadores MSX de la primera 
generación consta de 16K. En cuanto 
a los de la segunda generación, esta 
memoria puede ocupar de 16 a 128K 
VRAM. 

Para conocer el contenido de la me- 
moria de VRAM, podemos acceder a 
ella mediante las sentencias PRINT 
VPEEK para ver el contenido, y 
VPOKE para cambiarlo. 

La siguiente rutina es un ejemplo de 
cómo escribir en la memoria VRAM, 
mediante la ejecución de VPOKES. 

La línea 90 representa el carácter 
«A» y se va a imprimir en la columna 
10 de la fila 1 (posiciones 80 a 87). 

10 SCREEN 2,0,0 
20 RESTORE 90 
30 FOR A=80 TO 87 
40 READ S 



Programación 




50 VPOKE A,S 
70 NEXT A 
80 GOTO 80 

90 DATA 32.80,136,136,248, 
136,136,0 

Un carácter está constituido por un 
conjunto de puntos en una retícula de 
8x8. Cada línea ha de ser VPOKEada 
separadamente en la pantalla para 
construir todo el carácter. 

PEEKs EN ROM Y EN RAM 

Al ejecutar el primer programa para 
observar la memoria del ordenador, 
todo lo que obtendrás serán números 
entre y 255. Sin embargo, muchos de 
estos números son realmente códigos 
ASCII de letras, muchas de las cuales 
forman parte de palabras o frases. 

Si no estás seguro de los códigos 
ASCII de que se trata, puedes con- 
sultar la tabla que acompaña al ar- 
tículo. 

El programa siguiente lee toda la 
ROM de tu ordenador y convierte los 
números en caracteres antes de visua- 
lizarlos en pantalla: 

10 FOR A=0 TO 32767 
20 N = PEEK(A) 

30 IF N>31 AND N<127 THEN 

PR1NT CHR$(N) ; 
40 NEXT A 

Las líneas 10 y 40 hacen que se re- 
corra toda la memoria del ordenador, 
la línea 20 realiza un PEEK en cada 
posición de memoria y la 30 trans- 
forma el número en un carácter y lo 
imprime. La línea 30 limita también el 
campo de números sobre los que se 
efectúa la conversión para que el or- 
denador no intente imprimir códigos 
de control o símbolos gráficos. 

Puedes también imprimir el conte- 



nido de la RAM exactamente de 
misma forma; para ello no tienes 
que modificar las dirección 
moría que figuran en la lü 
direcciones que se dmnriQ 
imprimen una parte de la z 
se almacenan los programas en 
SIC. Esto te permite contemplar el 
programa tal como realmente está al- 
macenado en la memoria. 
Por ejemplo: 

10 FOR A= 36768 TO 65535 
20 N= PEEK(A) 

30 IF = N > 31 AND N < THEN 

PRINT CHR$ (N); 
40 NEXT A 

Es conveniente apagar un segundo 
el ordenador antes de probar este pro- 
grama para asegurarse de que la RAM 
no está contaminada con restos de 
otros programas. Aquí tienes la nueva 
versión de la línea 10: 

10 FOR A=32768T0 62335 



USO DEL PEEK Y EL POKE 

Lo que hemos hecho hasta ahora ha 
sido observar en general lo que hay en 




la memoria del ordenador y VPO- 
KEar caracteres en la pantalla. Esto 
puede darte una buena idea de la 
forma en que funcionan el PEEK y el 
POKE, pero no es en sí mismo espe- 
cialmente útil. 

Para hacer algo verdaderamente 
práctico tienes que examinar direccio- 
nes de memoria específicas. Por ejem- 
plo, la dirección de memoria 64433 
(en hexadecimal sería &HFBB1) con- 
trola la interrupción (BREAK) de un 
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programa en BASIC, al activar las te- 
clas CTRL y STOP. Normalmente 
contiene el valor 0, pero si pones un 
número mayor, como, por ejemplo 1, 
se desactiva la función de interrup- 
ción. Ésta es una forma muy sencilla 
de alejar a los mirones de tus progra- 
mas. 

Las instrucciones PEEK y POKE 
suelen usarse sólo ocasionalmente, 
con frecuencia para modificar la forma 
en que trabaja el teclado o para alterar 
la presentación en pantalla. 

Aquí tienes algunas de las cosas que 
puedes ensayar en tu ordenador. 

Ya hemos visto la manera de utilizar 
el POKE para alterar alguna función. 




M^Hpj Code 

ligos son los números usa- 
dos con CHR$ y CODE. CHRS trans- 
forma el número en un carácter, mien- 
tras que CODE realiza la conversión 
inversa, transformando un carácter en 
su número de código. 

Además, cada vez que el ordenador 
almacena una palabra en su memoria, 
lo que se almacenan son los códigos 
ASCII de los correspondientes carac- 
teres. 



Tabla 
ASCII 



Código Carácter Código Carácter 



número 


ASCII 


número 


ASCIII 


32 


espacio 


62 


> 


33 


! 


63 


? 


34 




64 


Cd 


35 


# 


65 


A 


36 


$ 


66 


B 


37 


% 


67 


C 


38 


& 


68 


D 


39 




69 


E 


40 


( 


70 


F 


41 


) 


71 


G 


42 


★ 


72 


H 


43 


+ 


73 


I 


44 




74 


J 


45 




75 


K 


46 




76 


L 


47 


/ 


77 


M 


48 





78 


N 


49 


1 


79 


O 


50 


2 


80 


P 


51 


3 


81 


Q 


52 


4 


82 


R 


53 


5 


83 


S 


54 


6 


84 


T 


55 


7 


85 


U 


56 


8 


86 


V 


57 


9 


87 


w 


58 




88 


X 


59 


1 


89 


Y 


60 


< 


90 


z 


61 










OTROS POKES 



Aquí ic presentamos oíros POKEs 
más que te resuTtaráir füuy útiles 
cuando estés escribiendo programas 

que han de ser ejercitados ^>or otras 
personas. El primero te permite ase- 
gurarte de que todas las letras teclea- 
das aparecerán como mayúsculas: 

POKE 64683,255 

Este número en hexadecimal se es- 
cribiría &HFCAB.&HFF. 

Esto te será muy útil cuando quieras 
que todas las entradas sean consisten- 
tes. Para volver al modo normal, te- 
clea 

POKE 64683,0 

que en hexadecimal sería POKE 
&HFCAB,&0. 

Con el programa que sigue, puedes 
convertir el símbolo «$» en el símbolo 
matemático existe, «3» 

10 AD=(PEEK(&HF3B7)+256* 
PEEK(&HF3B8))+36*8 
20 FORI = 0TO7 




VAL("&b" + A$) 
NEXTI v ~ 
50 END 

90 'transforma el signo 
matemático dolar en el 
simbolo existe 

100 DATA11111000 

110 DATA00001000 

120 DATA00001000 

130 DATA001 11000 

140 DATA00001000 

150 DATA00001000 

160 DATA11111000 

170 DATA00000000 

En la línea 10 definimos el lugar en 
el que encontraremos el símbolo $ que 
queremos cambiar. Mientras que en la 
30 definimos el cargador de DAT As, 
líneas 100 a 170, que redefinirá el sím- 
bolo $ por el 3 . 

Si quieres ejecutar este programa 
ocupando menos memoria, puedes 
cambiar las DATAs binarias por he- 
xadecimales. En este último caso 
acuérdate de variar también la línea 30 
por esta otra: 



Otro ejemj 
VPOKE lo tie 




35 VPOKEAD- ÍSMi^^^^ 

40 VP0KEAD+TW.84 

45 VPOKEAD + 239,32 
50 VPOKEAD+279,77 
55 VPOKEAD+319,83 
60 VPOKEAD+359,88 
65 END 

Las líneas anteriores cambian el 
sentido de la escritura en pantalla, de 
horizontal a vertical, y nos muestra en 
la misma una serie de letras que han 
sido introducidas mediante sus códi- 
gos de carácter ASCII. Si quieres va- 
riar las letras puedes utilizar la tabla 
que reproducimos en este mismo ar- 
tículo. 



Suscríbase ahora a 
■ 



'RECIO DE CUBIERTA PTAS. 375 
MENOS: 20 % de descuento al suscriptor Ptas. 75 
USTED PAGA SOLO PTAS. 300 (por ejemplar) 

SUSCRIPCION ANUAL 12 EJEMPLARES 4.500 Ptas. 
(900 Ptas). USTED PAGA SOLO 3.600 Ptas 
(entrega a domicilio gratis) 



INPUT le proporciona 

INFORMACION... DIVERSION... FORMACION.. 
(un curso completo de programación)... 





LA POSIBILIDAD DE MEJORAR 
SU NIVEL PROFESIONAL... 
EL NIVEL DE LOS ESTUDIOS.. 



• .Esté siempre al d»~ 



Recorte y envíe este cupón 

de inmediato a EDISA. López de Hoyos. 141 

28002 Madrid, o bien llámenos 

al Telf. (91) 415 97 12 



INPUT 



BOLETIN DE SUSCRIPCION 



SI, envíeme INPUT MSX duranle 1 año (12 ejemplares), al precio especial de oferta de 3.600 Ptas. AHORRANDOME / 
900 Ptas. sobre el precio normal de portada de 12 ejemplares sueltos. (Por favor, cumplimente este boletín con sus datos personales e / t 



indfquenos con una (X) la forma de pago por usted elegida, métalo en un sobre y deposítelo en el buzón más próximo) 



NOMBRE I I I I I I I I I I 1 I l_l I I I APELLIDOS 



_l I I I I I I I I l_ 



_l I I I I I I 



DOMICILIO l_ 
POBLACION l_ 
PROFESION l_ 



J I I I- 



J I I I I I I I I- 



J I I I I I I I I 



J PROVINCIA I I I I I I I I I I I I I L 



_l COO POSTAL L 
J TELF I I I I I 



J I I I I 



FORMA DE PAGO ELEGIDA Reembolso □ Domlclllaclón Banca ría 

Talón nominativo que adjunto a tavoi de EDISA 



INSTRUCCIONES DE DOMICILIACION BANCARIA (si es elegida por usted) 



Muy señores míos: 

Les ruego que. con cargo a mi cuenta n.° 

Editorial PLANETA AGOSTINI a nombre de 

■ ■ BANCO'C it AHORROS I 

1 1 l I I I DIRECCION I 1 I I 



de . 



.de 19 



_l I I I I I I I I I I I I I I I I I I l_ 



-I I I I I I I l_ 



J 1 1 — | 1_ 



J I I I I I I I L. 



Aplicaciones 



EJECUTAR PROGRAMAS 
EN CODIGO MAQUINA 



Un gran problema se presenta al usua- 
rio de diskettes a la hora de ejecutar sus 
programas en código máquina. ¿Cómo 
parar la unidad de disco una vez ejecu- 
tados éstos? 



Los poseedores de disketeras inde- 
pendientes pueden apagar la unidad 
de disco por la parte posterior y ¡pro- 
blema solucionado!, pero con la lle- 
gada de la segunda generación de 
MSX, en la que disketera y consola 
constituyen una unidad indisoluble, es 
imposible desconectar la disketera sin 
borrar la memoria del ordenador. 

Una de las soluciones más acepta- 
das consiste en cargar en memoria el 
programa sin ejecutarlo, esto es: 

bload"nombre programa" 

y posteriormente, con la unidad de 
disco parada, conociendo su dirección 
de elección, activarlo. 

La dirección de ejecución de un 
programa en código máquina se puede 
hallar con la siguiente «fórmula»: 

Print hex$(Peek(64703) + 
256*Peek(64704)) 

Así si, por ejemplo, tuviéramos un 
programa en código máquina deno- 
minado «INPUT», con una dirección 
de ejecución en $H90()(), haríamos lo 
siguiente para ejecutarlo: 

bload"INPUT" 

defusr=&h9000 

a=usr(0) 

Con la ayuda del programa que a 
continuación os presentamos podre- 
mos generar otro programa (AUTO- 
EXEC.bas), que arrancará automáti- 
camente al conectar el ordenador e in- 
sertar el disco correspondiente. 



Con el programa MENU generado 
podremos seleccionar los programas 
contenidos en el disco de una manera 
cómoda, olvidándonos si son en có- 
digo máquina o BASIC. Sólo tendre- 
mos que pulsar ta letra correspon- 
diente o mover el cursor hasta el pro- 
grama deseado y pulsar la barra de es- 
pacio o el botón del joystick. 

Al correr el PROGRAMA GE- 
NERADOR DE MENUS, éste pro- 



cederá a la lectura del directorio del 
disco y nos dará información de los 
programas que hay en él, clasificán- 
dolos alfabéticamente. 

VEINTE PROGRAMAS 

En pantalla se muestran veinte pro- 
gramas cada vez. Seleccionaremos 
uno tecleando el número que hay a su 
izquierda y le daremos el texto que 
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DESCONECTAR LA DiSKETERA 
SIN BORRAR LA MEMORIA 
CREACION AUTOMATICA 

DE MENUS 

VEINTE PROGRAMAS 



queremos que aparezca en el menú 
(con un máximo de 15 posiciones). 

Si el programa que deseamos no 
está en pantalla o queremos visualizar 
otro grupo de veinte, teclearemos un 
número de programa que no figure en- 
tre los listados, visualizándose nueva- 
mente éstos a partir de ese número. 

Para terminar, cuando pida el nú- 
mero de programa se tecleará 999 y el 
programa generará y ejecutará el AU- 
TOEXEC.bas que acabamos de pre- 
parar, dejándolo grabado en el disco. 

Recuerda que este programa con- 
tiene código máquina, por lo que de- 
berás salvarlo antes de ejecutarlo. 

Rafael Lorenzo 

10 KEYOFF:WIDTH 

40:CLEAR6000 
15 CLS:LOCATE0,8:PRINT 

"CREADOR DE MENUS 

AUTOMATICOS PARA DISCO" 
20 L0CATE8, 12:PRINT"RAFAEL 

LORENZO MARZO 87" 
25 LOCATE6,20.-PRINT"PULSA 

UNA TECLA PARA 

CONTINUAR" 
30 IF INKEY$ = "" THEN 30 
35 P0KE(&HFCAB),255 
40 DIM DI$(112),LI$(20), 

PR$(20) 
45 FORN = 0TO15:LI$(N) = 

HEX$(N): NEXT 
50 LI$(16) = "G" 
55 LI$(17) = "H" 
60 Ll$(18) = "l" 
65 LI$(19) = "J" 
70 FORN = 0TO111: DI$(N) = 

STRING$(23," "):NEXT 
75 CLS 

80 PRINT" ** CREACION 

AUTOMATICA DE MENUS **" 

85 PRINT"-— - 

90 PRINT:PRINT:PRINT:PRINT 

:PRINT:PRINT:PRINT:PRIN 



T" COLOCA EL DISCO Y 

PULSA UNA TECLA" 
95 A$ = INKEY$:IF 

A$=""THENG0T095 
100 PRINT: PRINT: PRINT: PRINT 

" ** PROCESO DEL 

DIRECTORIO **" 
105 DI = PEEK(&HF351) + 

256*PEEK(&HF352) 
110 REM LECTURA DEL 

DIRECTORIO 
115 NP=-1 
120 FOR X=5 TO 11 
125 A$ = DSKI$(0,X) 
130 FOR l = DI TO DI+480 STEP 

32 

135 A$=CHR$(34) 

140 REM BUSQUEDA DEL 

NOMBRE 
145 IFPEEK(I) = $HE5 THEN 

GOTO 230 
150 IFPEEK(l) = THEN 

X=11:I = DI+480:GOTO 230 
155 NP=NP+1 
160 FOR J = TO 10 
165 I F J = 8 THEN IF 

CHR$(PEEK(I+J))<>" " 

THEN A$ = A$ + "." ELSE 

A$=A$+" " 
170 A$ = A$+CHR$(PEEK(I+J)) 
175 NEXT J:A$ = A$+CHR$(34) 
180 IF LEN(A$) < 14 THEN 

A$=A$ + STRING$((14- 

LEN(A$))," ") 
185 REM CALCULO DEL 

CLUSTER DE COMIENZO 
190 CL = PEEK(l + 26) + 256*PEEK 

(1+27) 
195 REM CALCULO 

DEL SECTOR LOGICO 
200 SE = (CL-2)*2+12 
205 SE$ = STR$(SE) 
210 LO = LEN(SE$)-l 
215 SE$ = STRING$((3-LO),"0 

") + MID$(SE$,2,L0) 



220 A$=A$+SE$ 

225 DI$(NP) = A$ 

230 NEXT I 

235 NEXT X 

240 FORN = 0TONP 

245 A=VAL(MID$(DI$(N),15,3)) 

250 A$ = DSKI$(0,A) 

255 TI = PEEK(DI) 

260 IFTI = 255THENDI$(N) = 

DI$ + "B ":GOT0285 
265 IFTI<>254THENDI$(N) = 

DI$(N) + "D ":GOT0285 
270 A$ = HEX$(PEEK(DI + 1) + 

256*PEEK(DI + 2)) 
275 IF LEN(A$)<THEN 

A$ = STRING$(4-LEN(A$), 

"0") + A$ 

280 DI$(N) = DI$(N) + "C"+A$ + " 
ti 

285 NEXT N 

290 REM CLASIFICAR 

ENTRADAS 
295 PRINT: PRINT: PRINT: PRINT 

"** CLASIFICANDO **' 
300 P=0 

305 FORM = 0TONP-1 

310 IF DI$(M)>DI$(M + 1) THEN 

SWAP DI$(M), 

DI$(M + 1):P=P+1 
315 NEXTM 

320 IF PO0THEN GOTO300 
325 A=0 
330 CLS 

335 PRINT" PROGRAMAS EN 

DISCO " 

340 PRINT"—- - " 

345 FORN=ATDA+ 19 

350 PRINTUSING "###"¡N¡ 

355 PRINT"-"MID$(DI$(N),2, 

12) ; MID$(DI$(N),23,1); 
360 A$ = MID$(DI$(NU8,1) 
365 IF A$ = "D"THEN 

PRINT"DES"; 

ELSEIFA$="B "THEN PRINT 
"BAS" ; ELSE IF A$=" 
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"THEN PRINT " "¡ELSE 
PR I NT"COD" ; 
370 NEXT N 

375 PRINT:PRINT " - 

380 PRINT" HAS 

SELECCIONADO ";P1¡ 

"PROGRAMAS" 

385 PRINT" -": 

390 LOCATE 0,19:INPUT "QUE 

NUMERO DE PROGRAMA 

QUIERES";A1 
395 IF Al=999THENGOTO 450 
400 IF A1<0 OR Al>112 

THEN390 
405 IF A1<A OR A1>A+19 

THEN A=A1:IFA>92 THENA 

= 92: GOTO330 

ELSEGOTO330 
410 LOCATE 0,21:INPUT "QUE 

NOMBRE QUIERES DARLE 

(MAX.15 CAR.)" ; A$ 
415 IF LEN(A$)>15 THEN840 
420 IF LEN(A$)< THEN840 

425 MID$(DI$(Al),23 f 1) = "*" 
430 IF MID$(DI$(A1), 18, 1) = "C" 
THEN PR$(Pl)="BLOAD" 
+ MID$(DI$(A1),1,14):IF 
MID$(DI$(A1),19,4) < 
"8500"THEN PR$ 
(P1) = PR$(P1) + ",R"ELSE 

PR$(P1) = PR$(P1) + ": 

GOTO 1500" ELSE 
PR$(P1) = "RUN" + MID$ 
(DI$(A1),1,14) 

435 LI$(P1) = LI$(P1) + " - "+A$ 

440 P1 = P1 + 1 

445 IF P1>20THEN GOTO 
450ELSE GOTO330 

450 FOR N = TO 19 

455 IFLEN(LI$(N))<20THENLI 
$(N) = LI$(N) + STRING$(2 
0-LEN(LI$(N))," ") 

460 NEXT N 

465 LI$(0) = CHR$(34) + "" + LI$ 

(0) + LI$(l) + CHR$(34) 
470 LI$(l)=CHR$(34) + "" + LI$ 

(2) + LI$(3)+CHR$(34) 
475 LI$(2)=CHR$(34) + "" + LI$ 

(4)+LI$(5)+CHR$(34) 
480 LI$(3)=CHR$(34) + "" + LI$ 

(6) + LI$(7)+CHR$(34) 
485 LI$(4) = CHR$(34) + "" + LI$ 




(8) + LI$(9) + CHR$(34) 
490 LI$(5)=CHR$(34) + "" + LI$ 

(10) + LI$(11)+CHR$(34) 
495 LI$(6)=CHR$(34) + "" + LI$ 

(12) + LI$(13)+CHR$(34) 
500 LI$(7) = CHR$(34) + "" + LI$ 

(14) + LI$(15) + CHR$(34) 
505 LI$(8) = CHR$(34) + "" + LI$ 

(16) + LI$(17)+CHR$(34) 
510 LI$(9) = CHR$(34) + " + " + LI$ 

(18) + LI$(19) + CHR$(34) 
515 OPEN "AUTOEXEC. 

BAS" FOR OUTPUT AS #1 
520 PRINT#1,"999 CLEAR 100, 

&HE240" 
525 PRINT#1,"1000 ON 

ERRORGOTO1590" 



530 PRINT#1,"1010 

POKE&HFCAB, 

255:WIDTH40: 

KEYOFF:CLS:LOCATE18,0: 

PRINT"; CHR$(34); 

"MENU";CHR$(34) 
535 PRINT#1,"1020 

L0CATE18,1:PRINT"; 

CHR$(34) ; " "; 

CHR$(34);":PRINT" 
540 PRINT#1,"1030 PRINT"; 

Ll$(0) 

545 PRINT#1,"1040 PRINT"; 
Ll$(l) 

550 PRINT#1,"1050 PRINT"; 
Ll$(2) 

555 PRINT#1," 1060 PRINT"; 
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Ll$(3) 

560 PRINT*1,"1070 PRINT"- 
Ll$(4) 

565 PRINT#1,"1080 PRINT"- 
Ll$(5) 

570 PRINT*1,"1090 PRINT"- 
U$(6) 

575 PRINT#1,"1100 PRINT"- 
Ll$(7) 

580 PRINT#1,"1110 PRINT"; 
Ll$(8) 

585 PRINT#1,"1120 PRINT"- 

Ll$(9) 
590 PRINT#1,"1130 

LI=3:C0=1:A$ = "; 

CHR$(34);CHR$(34) ; 
":SW=1" 



595 PRINT#1,"1 140 ON STRIG 

GOSUB1540,1540:STRIG(0) 

0N:STRIG(1) ON" 
600 PRINT#1,"1150 IF B$ = " ; 

CHR$(34); CHR$(34); 

"THENA$ = 

INKEY$ELSEA$ = B$" 
605 PRINT#1,"1160 B$="; 

CHR$(34);CHR$(34) 
610 PRINT*1,"1170 

A=STICK(0):IF 

A=0THENA = STICK(1)" 
615 PRINT*1,"1180 IFA<>0 

THEN FORN=l TO 

70:NEXT" 
620 PRINT* 190 IF A=7 

THEN IF CO =21 THEN 

CO=l ELSE CO=21: 

A=l" 

625 PRINT*1,"1200 IF A = 3 
THEN IF CO=l THEN 
C0 = 21 ELSE CO=l: 
A = 5" 

630 PRINT* 1, "1210 IF 

A=1THENLI = LI-2:IFLI<3 
THENLI = 21:IFCO=l THEN 
CO = 21 ELSE CO=l" 

635 PRINT#1,"1220 IF 

A=5THENLI = LI + 2:IFLI>21 
THENLI = 3:IF CO=l THEN 
CO = 21 ELSE CO=l" 

640 PRINT#1,"1230 IF 

A + SWO0THEN LOCATE 
CO,Ll r l.-SW = 0" 

645 PRINT* 1,"1235 IFA$> = "; 
CHR$(34); "0" ; CHR$(34) ; " 

AND A$< = ";CHR$(34);"J"; 

CHR$(34) ; " THEN LOCATE 
CO,LI,0" 

650 PRINT*l r "1240 IF A$ = "; 

CHR$(34); "10";CHR$(34) ; 

"THEN A$ = M ; CHR$(34); 

"G";CHR$(34) 
655 PRINT*1,"1250 IF A$ = " ; 

CHR$(34);"11";CHR$(34); 

"THEN A$ = " ; CHR$(34); 

"H" 

660 PRINT*1,"1260 IF A$ = " ; 

CHR$(34); "12";CHR$(34) ; 

"THEN A$=" ; CHR$(34); 
ti i ii 

665 PRINT*1,"1270 IF A$ = "; 



CHR$(34); "13";CHR$(34) ; 
"THEN A$ = ";CHR$(34); 
"J" 

670 PRINT*1,"1280 IF A$ = " ; 

CHR$(34); "0";CHR$(34) ; 

"THEN"; PR$(0) 
675 PRINT* 1, "1290 IFA$ = "; 

CHR$(34); "1" ; CHR$(34) ; " 

THEN"; PR$(1) 
680 PRINT*1,"1300 IF A$ = " ; 

CHR$(34); "2";CHR$(34) ; 

"THEN"; PR$(2) 
685 PRINT*1,"1310 IF A$ = " ; 

CHR$(34); "3" ; CHR$(34) ; " 

THEN"; PR$(3) 
690 PRINT*1,"1320 IF A$ = " ; 

CHR$(34); "4";CHR$(34) ; 

"THEN"; PR$(4) 
695 PRINT*1,"1330 IF A$ = "; 

CHR$(34); "5";CHR$(34) ; " 

THEN"; PR$(5) 
700 PRINT*1,"1340 IF A$ = "¡ 

CHR$(34); "6";CHR$(34) ; 

"THEN"; PR$(6) 
705 PRINT*1,"1350 IF A$ = " ; 

CHR$(34) ; "7" ; CHR$(34)¡" 

THEN"; PR$(7) 
710 PRINT*1,"1360 IF A$ = "; 

CHR$(34); "8";CHR$(34) ; 

"THEN"; PR$(8) 
715 PRINT*1,"1370 IF A$ = "; 

CHR$(34); "9";CHR$(34) ; " 

THEN"; PR$(9) 
720 PRINT*1,"1380 IF A$ = "; 

CHR$(34); "A";CHR$(34) ; 

"THEN"; PR$(10) 
725 PRINT*1,"1390 IF A$ = "; 

CHR$(34); "B" ; CHR$(34) ; " 

THEN"; PR$(11) 
730 PRINT*1,"1400 IF A$ = "; 



Si so te hace difícil 
encontrar INPIT 
en tu kiosco habitual, 
resérvalo por adelantado, 
o háznoslo saber 
para que podamos remediarlo 
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CHR$(34); "C";CHR$(34)¡ 

"THEN"; PR$(12) 770 
735 PRINT*1,"1410 IF A$ = "; 

CHR$(34); "D" ; CHR$(34) ; " 

THEN"; PR$(13) 
740 PRINT* 1, "1420 IFA$ = "; 775 

CHR$(34); "E";CHR$(34) ; 

"THEN"; PR$(14) 780 
745 PRINT#1,"1430 IF A$ = "; 

CHR$(34); "F" ; CHR$(34) ; " 

THEN"; PR$(15) 
750 PRINT*1,"1440 IF A$ = "; 

CHR$(34); "G";CHR$(34) ; 

"THEN"; PR$(16) 
755 PRINT* 1, "1450 IFA$ = "; 785 

CHR$(34); "H";CHR$(34) ; " 

THEN"; PR$(17) 790 
760 PRINT#1,"1460 IF A$ = "; 

CHR$(34); "l";CHR$(34); 

"THEN"; PR$(18) 
765 PRINT* 1, "1470 IFA$="; 795 

CHR$(34); "J";CHR$(34) ; " 



THEN"; PR$(19) 
PRINT*1,"1480 IF A$ = "; 
CHR$(34); "R";CHR$(34) ; " 
THEN RUN";CHR$(34); 
autoexec.bas" ; CHR$(34) 
PRINT*1,"1490 GOTO 
1150" 

PRINT*1,"1500 SCREEN 
2:LINE(9,1) - (254,110), 
15, B: 0PEN";CHR$(34); 
"grp:" ; CHR$(34) ; " AS 
*1:PRESET(10,60):PRINT 
*1,";CHR$(34) ; " ** 
CARGANDO **";CHR$(34) 
PRINT*1,"1520 
F0RA-1T0 4000:NEXT" 
PRINT* 1," 1530 
DEFUSR = PEEK(&HFCBF)+ 
256*PEEK(&HFCC0): 
A=USR(0)" 
PRINT*1,"1540 PR = 
LI-3" 



800 PRINT*1,"1550 IF CO >1 

THEN PR=PR+1" 
805 PRINT*1," 1560 

B$ = HEX$(PR)" 
810 PRINT*1, "1570 LOCATE 0, 

0,0" 

815 PRINT*1,"1580 RETURN" 
820 PRINT*1,"1590 IF 

ERR<>70 THEN ONERROR 

GOTO 0" 
825 PRINT*1,"1600 RESUME 

1150" 
830 CLOSE *1 
835 RUN"AUTOEXEC.BAS" 
840 CLSrLOCATE 0,10:PRINT" 

** ERROR EN LA LONGITUD 

**":PRINT:PRINT" NO SE 

SELECCIONA PROGRAMA" 
845 PLAY"EC" 
850 FOR N=l TO 800: 

NEXT 
855 GOTO 330 
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Tras el mensaje de «CUBRO LA 
APUESTA» aparece una indicación; 
dependiendo de la jugada, los men- 
sajes posibles de la máquina pueden 
ser: 

—«TE HAS PASADO»; «YO 
GANO», en caso de que nos pasemos 
de 21. 

— «ME HE PASADO, TU GANAS», 
en caso de que la máquina se pase de 
21. 

—«HAS HECHO 21, TU GANAS». 
—«HE HECHO 21, YO GANO». 
— Un menú con las opciones de plan- 
tarse o pedir carta en caso de que 
nuestra puntuación sea mayor de 16. 
— Un menú con las opciones de volver 
a jugar o retirarse. 

—Un mensaje de «TE PLANTAS Y 
GANAS» o «TE PLANTAS Y 
GANO». 

— Un menú con la indicación «TE HA 
SALIDO UN AS. ¿QUIERES SU- 
MAR UNO U ONCE?». 

Una diferencia con respecto a los 
juegos ordinarios de cartas es que el 
reparto no puede pasar al jugador, de- 
biendo ser siempre el ordenador el 
que «da» las cartas. En el juego ordi- 
nario la banca cambia cuando se lo- 
gran las 21, en este juego la banca es 



siempre el ordenador, por lo que 
siempre tiene ventaja sobre el juga- 
dor; en las 21 ordinarias, la banca 
tiene también ventaja sobre el juga- 
dor. Por ello el jugador tiene ante sí 
la difícil tarea de hacer saltar a la 
banca para ganar. Para contrarrestar 
las ventajas de la máquina el ordena- 
dor siempre contabilizará 11 cuando 
tenga un «AS». 

60 PRINT "HOLA SOY CRUPI EL 
CRUPIER DE CUANTOS 
DOLARES DISPONES. 
(CIFRAS REDONDAS) 
APUESTA MINIMA 100" 

70 INPUTAP 

80 IF AP>5000000# THEN 
PRINT "LA BANCA NO 
DISPONE DE TANTO 
DINERO. ":GOTO 60 

90 IF AP<100 THEN GOTO 60 

100 PRINT "BIEN, PUEDO 

CUBRIR ESA CANTIDAD." 

110 PP=AP 

120 FOR WE=1 TO 1000:NEXT 
WE 

680 FOR B = 2 TO 10 
690 IF C(A+1) = B THEN 



PB=PB+B 
700 NEXT B 

740 IF C(A+1)=11 THEN 

PB=PB+10 
750 IF C(A+1)=12 THEN 

PB=PB+10 
760 IF C(A+1)=13 THEN 

PB=PB+10 
770 IF C(A+1)=14 THEN 

PB=PB+11 
790 LINE (20,100)-(150,120), 

1,BF 

970 IF PB>21 THEN GOTO 
1340 

990 IF PB = 21 THEN GOTO 
1010 IF PB = >16 AND PB<21 

THEN 1740 
1340 LINE (10,155)-(245, 

190U.BF 
1350 PSET (17, 160), 1 
1360 PRINT #1,"ME HE 

PASADO, HE HECHO:"; PB 
1370 PSET (17, 170), 1 
1380 PRINT #1,"TU GANAS." 
1390 FOR WE=1 TO 500:NEXT 

WE 

1400 AP = AP + JA:PP = PP-JA 
1410 IF PP=<0 THEN GOTO 

2570 
1420 GOTO 1780 
1540 LINE (10,155)-(245, 

190U.BF 
1550 PSET (17, 160), 1 
1560 PRINT #1,"HE HECHO 

21." 

1570 PSET (17,170), 1 
1580 PRINT #1,"Y0 GANO." 
1590 FOR WE=1 TO 500:NEXT 
WE 

1600 PP=PP+JA:AP=AP-JA 
1610 IF PP=<0 THEN GOTO 

2570 
1620 GOTO 1780 
1740 LINE (10,155)-(245, 

190U.BF 
1750 IF PB>17 THEN GOTO 

1980 
1760 GOTO 1020 
1980 LINE (10,155)-(245, 

190U.BF 
1990 PSET (17, 160), 1 
2000 PRINT #1, "ME PLANTO Y' 
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2010 PSET (17, 170), 1 

2020 IF PA>PB THEN PSET (17, 
170),1:PRINT #1, 
"PIERDO. ";PA;"a"; 
PB:FORWE=1TO500: 
NEXTWE:AP = AP+JA: 
PP = PP_JA:GOTO2050 

2030 IF PB>PA THEN PSET (17 
170),1:PRINT #1, 
"GANO.";PB;"a"; 
PA:FORWE=1TO500: 
NEXTWE:PP=PP + JA: 
AP=AP-JA:GOTO2050 

2040 PSET (1/,160),1:PRINT 
# 1, "HEMOS 
EMPATADO. ":F0RWE=1 
TO 500:NEXT WE 

2050 IF PP=<0 THEN GOTO 
2570 



2060 GOTO 1780 

2570 REM DESBANCAR A LA 

BANCA 
2580 SCREEN 0,0,0 
2590 PRINT "HAS DESBANCADO 

A LA BANCA." 
2600 PRINT "FELICIDADES." 
2610 FOR WE=1 TO 1000:NEXT 

WE 

2620 GOTO 10 

Desde las líneas 60 hasta la 120 se 
crea una presentación donde se nos 
pregunta de qué cantidad de dinero 
disponemos, almacenando esa canti- 
dad en las variables PP, para el orde- 
nador y AP, para el jugador. Desde 
680 a 700 se comprueba la puntuación 
de la máquina archivándola en la va- 
riable PB. De las líneas 740 a 770 se 



comprueba la puntuación, en el caso 
de que la carta sea una figura. La línea 
770 es la encargada de sumar 11 
cuando la carta de la máquina sea un 
as. La 970 se asegura de que el orde- 
nador no se haya pasado de 21 . La 990 
comprueba que el ordenador no haya 
hecho 21 y la línea 1010 lleva el con- 
trol del ordenador a 1740 en caso de 
que su puntuación sea mayor de 16. 
Entre 1340 y 1420 se extiende la rutina 
utilizada cuando la máquina se pasa. 
Entre 1540 y 1620 se extiende la uti- 
lizada cuando el ordenador hace 21. 
De la línea 1740 a la 1760 el ordenador 
decide si debe plantarse o pedir carta. 
Las líneas 1980 y 2060 albergan la ru- 
tina utilizada cuando el ordenador se 
planta y, por último, entre 2570 y 2620 
se encuentra el mensaje anunciando 
que ha saltado la banca. 
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SIMULADOR 
DE VUELO 



LA SIMULACION DE VUELO 



PROGRAMAS DE ENTRENAMIENTO 
VUELO MEDIANTE INSTRUMENTOS 



EL MOVIMIENTO DEL AVION 



PERDIDA DE VELOCIDAD 



Este programa de simulación de 
vuelo es similar a los que se emplean 
en las escuelas de vuelo para enseñar a 
los pilotos cómo tienen que volar utili- 
zando únicamente sus instrumentos; en 
la primera parte se reproduce la cabi- 
na 

Los programas de juegos varían 
desde una fantasía desbordante que 
supone la entrada a mundos imagina- 
rios y la participación en aventuras, 
hasta la simulación de situaciones de 
la vida real. Esto te permite poner a 



prueba tu capacidad en situaciones po- 
tencialmente peligrosas, sin tener que 
hacerte daño o perder totalmente mi- 
llones de pesetas en costosos equipos. 

Los programas de simulación de 
vuelo contienen un elemento de fan- 
tasía: tú solo en la cabina, con toda la 
tripulación aquejada de una misterio- 
sa enfermedad, con una sola mano 
consigues hacer que el avión tome tie- 
rra felizmente. Pero los sofisticados 
programas de este tipo tienen un uso 
práctico real, hasta el punto de que 
casi todas las principales compañías de 



líneas aéreas y escuelas de vuelo los 
utilizan con regularidad. 



SIMULADORES DE 
ENTRENAMIENTO 

En el extremo superior de la escala 
está la simulación total, la llamada 
«Fase 3» en la terminología de las ad- 
ministraciones de aviación civil, que te 
permite experimentar las mismas sen- 
saciones que un piloto en un avión de 
verdad. Tú ves lo mismo que él ve a 
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través de la ventanilla de la carlinga 
(incluyendo una pequeña diferencia 
de ángulo en el punto de vista para la 
posición del copiloto); sentirás lo mis- 
mo que él siente en los despegues y en 
los aterrizajes, así como las turbulen- 
cias; oirás lo mismo que él oye, inclu- 
yendo las indicaciones del control de 
tráfico aéreo. En teoría un piloto pue- 
de completar todo su entrenamiento 
en uno de estos simuladores y obtener 
su licencia sin tener que abandonar el 
suelo para nada. 

SIMULADORES DE 
SOBREMESA 



En el extremo opuesto de la escala 
están los programas de simulación de 
vuelo muy parecidos al que veremos a 
continuación. 

Las unidades de sobremesa se pue- 
den «volar» en el interior de un aula, 
y resultan útiles para la enseñanza de 
los procedimientos de cabina y para 
desarrollar la rapidez de reflejos de los 
pilotos. 

Resultan además esenciales para la 
enseñanza del vuelo por instrumentos, 
una técnica que permite al piloto na- 
vegar apoyándose únicamente en el 
panel de instrumentos, algo que todo 
piloto ha de hacer cuando las condi- 
ciones meteorológicas son malas. 



: 



LO QUE HACE EL PROGRAMA 



Este artículo consta de tres partes y 
en él se presenta un programa de si- 
mulación de vuelo en el que se supone 
que te has hecho cargo del control del 
avión. 

Tú mismo escogerás la altura y la 
distancia respecto del aeropuerto con 
la que quieres comenzar el juego. Por 
la ventanilla de la cabina es muy poco 
lo que puedes ver, solamente el hori- 
zonte, cuando hay visibilidad, y un 
punto distante que es la pista de ate- 
rrizaje, por lo cual, como piloto sen- 
sato que eres, tendrás que confiar en 
tu experiencia y atendiendo a lo que 
te indique el panel de instrumentos 
ponerte a salvo en tierra a ti y a tus 
pasajeros, cuya seguridad depende ab- 
solutamente de tu pericia. 



LOS INSTRUMENTOS 

En tu panel de instrumentos hay 
cinco diales. El primero te informa de 
la velocidad del avión. Este valor se 
incrementará automáticamente con 
sólo pulsar una vez la tecla correspon- 
diente. Un contador, situado debajo 
del dial de la velocidad, te indica la 
orientación de tu vuelo, haciendo las 
veces de brújula. 

Un tercer dial te muestra la altura 
en que te hallas en cada momento. 

El cuarto dial señala la distancia a 
la que te encuentras del aeropuerto 
más próximo; ésta disminuirá más o 
menos rápidamente en función de la 
velocidad a la que estés avanzando. 

El último dial es el del combustible. 
La cantidad que llevas en tu depósito 
la elegirás tú antes de comenzar el 
juego. Has de tener cuidado de no po- 
ner poca cantidad para evitar quedarte 
sin combustible durante el vuelo. Del 
mismo modo, llenar mucho el depó- 
sito, restará velocidad y altura a tu 
avión. 

Si rebasas los 15.000 metros de al- 
tura, tu fuselaje no lo podrá resistir y 
caerás en picado. 

ATERRIZAJE 

Aunque hay programas de simula- 
dores de vuelo en los que la imagen 
que se ve a través de la ventanilla de 
la cabina se va haciendo más nítida a 
medida que progresa la aproximación, 
no es éste nuestro caso. Por eso debes 
centrar la imagen en relación al men- 
saje de la torre de control que apare- 
cerá en uno de los diales de la panta- 
lla, cuando falten mil metros para el 
aterrizaje. 

Para que el aterrizaje tenga un final 
feliz, debes hacer coincidir el valor del 
mensaje de la torre de control con el 
marcador de derivación. Cuando el in- 
dicador de distancia señale cero, es- 
tarás justo encima de la pista. Es en- 
tonces cuando debes decrementar la 
velocidad y la altura hasta que todas 
las magnitudes sean cero. Si no lo has 
previsto a tiempo, lo más probable es 
que la pista se te quede corta y te sal- 
gas de ella provocando un grave si- 
niestro. 



MOVIENDO EL AVION 

El margen de los controles de que 
dispones se aproxima bastante a los 
controles de un avión de verdad, aun- 
que estés pulsando teclas en vez de 
utilizar un joystick. En una aeronave 
real, el control de la elevación — los 
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movimientos hacia arriba y hacia 
abajo — se hace moviendo el joystick 
hacia atrás o adelante. 

Los mandos que te permitirán con- 
trolar correctamente el avión son los 
siguientes: la tecla «q» bajará el avión 
en intervalos de diez en diez metros; 
la tecla «a» efectuará similar movi- 



miento pero en sentido inverso, esto 
es, ascendiendo; la tecla «w» efectúa 
la misma operación que «a» pero a in- 
tervalos de cien en cien; la tecla «s» 
eleva la altura del avión de cien en 
cien. 

Para la derivación hacia la derecha 
debes pulsar la tecla «p», mientras que 



para hacer lo mismo hacia la izquierda 
debes pulsar la tecla «o». 

La tecla «I» te permitirá elevar la 
velocidad de tu avión a intervalos de 
diez en diez, mientras que «u» lo hará 
de cien en cien, «L» decrementará la 
velocidad de diez en diez y «k» de cien 
en cien. 




m 
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PERDIDA DE VELOCIDAD 

Cuando la velocidad de un avión 
cae por debajo de un determinado va- 
lor se dice que entra en pérdida de ve- 
locidad y en ese momento el avión em- 
pieza a caer como si fuera una piedra. 
En este programa, cuando el valor de 
tu dial de velocidad decaiga por de- 
bajo de 100 caerás en picado contra el 
suelo. Una entrada en pérdida es algo 
que aterroriza a cualquier piloto. 



DIVISION DEL PROGRAMA 



El programa es demasiado largo y 
complejo como para darlo todo de una 
sola vez, por lo que lo hemos dividido 
en tres partes. 

Lo que se hace en esta primera par- 
te es configurar la pantalla para mos- 
trar el interior de la cabina, con su 
ventanilla, los cuatro diales debida- 
mente etiquetados y los letreros de los 
contadores. 

Los comandos que intervienen se- 
rán familiares para la mayoría de vo- 
sotros por haberlos visto ya en otros 
programas. 

La parte de programa introducida 
en la parte dos, hace posible que los 
diales y contadores sean sensibles al 
movimiento del avión y hay un coman- 
do temporal que hace que éste vuele 
aleatoriamente sin que haya un piloto 
que actúe sobre los controles, para 
que puedas ver funcionando el panel 
de instrumentos. La sección final te 
permite tomar el control del avión y 
realizar una estimación de tu técnica 
de aterrizaje para que pued'as juzgar 
tus progresos. 



DIBUJANDO LA CABINA 

Para dibujar la cabina teclea en tu 
ordenador la siguiente parte del pro- 
grama: 

10 CLS:C0L0R 3,1,1:KEY 
OFF 

20 INPUT "CON QUE ALTURA 
QUIERES EMPEZAR:";AL 

30 INPUT "A QUE DISTANCIA 
DEL AEROPUERTO:"; 
DI 



40 INPUT "CON CUANTO 

C0MBUSTIBLE:";C0 
50 IF CO>20000 THEN PRINT 

"ESA CANTIDAD NO CABE EN 

EL DEPOSITO. ":G0T0 

40 

60 INPUT "A QUE VELOCIDAD:"; 
VE 

70 INPUT "NIVEL DE 
DIFICULTAD(1-10)";D 
80DP=1100-(D*100) 
90 COLOR 15,1,1 
100 SOUND 1,8:S0UND 7, 

35:S0UND 11,100 
110 REM FACTORES 

INICIALES 
120 PP=INT(RND(-TIME)*360) 
+ 1 

130 GR=180:CC=1 

140 REM SIMULADOR DE 

VUELO 
150 SCREEN 2,0,0 
160 OPEN "GRP:" AS # 1 
170 LINE (10,10)-(245,100), 

15, B 

180 LINE (20,130)-(70,150), 
15, B 

190 LINE (80,130)-(130,150), 
15,B 

200 LINE (140,130)-(190, 

150), 15, B 
210 LINE (200,130)-(250, 

150), 15, B 
220 PSET (30,2), 1 
230 PRINT # 1,"PISTA DE:";DP; 

" METROS." 
240 PSET (20, 160), 1 :PRI NT # 

1,"DERIV:" 
250 PSET (20, 120), 1 
260 PRINT # 1,"VEL0C" 
270 PSET (110,1 60), 1 : PR I NT # 

1, "COMBUS:" 
280 PSET (80, 120), 1 
290 PRINT # 1, "ALTURA" 
300 PSET (140, 120), 1 
310 PRINT # 1, "DISTA" 
320 PSET (200, 120), 1 
330 PRINT # 1,"G. PISTA" 
340 LINE (21,131)-(69,149),1, 

BF 

350 PSET (21, 135), 1 
360 PRINT # 1,VE 



370 LINE (70,155)-(100,170), 
1,BF 

380 PSET (70, 160), 1 

390 PRINT # l.GR 

400 LINE (170,155)-(255, 

170U.BF 
410 PSET (170, 160), 1 
420 PRINT # 1,C0 
430 LINE (81,131)-(129,149), 

1,BF 

440 PSET (81, 135), 1 

450 PRINT # l.AL 

460 LINE (141.13D-Ü89, 

149),1,BF 
470 PSET (141, 135), 1 
480 PRINT # l.DI 

La línea 10 borra la pantalla y es- 
tablece los colores del programa. En- 
tre las líneas 20 y 70 se introducen los 
valores correspondientes a la altura, 
distancia, combustible, velocidad y el 
nivel de dificultad que tú elijas. 

El cálculo del espacio del que dis- 
pones para aterrizar se realiza en la lí- 
nea 80. Esta distancia disminuirá en 
función del nivel de dificultad que es- 
cojas. 

El sonido que simula los reactores 
del avión se inicializa en la línea 100. 
variándolo en función de la altura y la 
velocidad. 

En la línea 120 se elige aleatoria- 
mente la pista en la que deberás ate- 
rrizar. 

Este cálculo depende del tiempo 
transcurrido desde que encendiste el 
ordenador. 



DIBUJO DEL PARABRISAS 
Y LOS DIALES 

Los dibujos del parabrisas de la ca- 
bina y de los diales se ejecutan entre 
las líneas 170 a 210, mediante las ins- 
trucciones LINE. 

El resto de programa se divide en 
dos partes. La primera, desde las lí- 
neas 230 a 330 imprime el título de los 
diales. 

Mientras que la segunda parte, en- 
tre 340 y 480, se encarga de renovar el 
contenido de cada dial. 

Si ejecutas ahora el programa te 
aparecerá en la pantalla tu cabina si- 
mulada de avión. 
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DESPEGA PARA TU 
PRIMER VUELO 



VUELO CON EL PILOTO AUTOMATICO 



APROXIMACION A LA PISTA DE 
ATERRIZAJE 



DIBUJANDO LA TRAYECTORIA 



EL PANEL DE INSTRUMENTOS 



En ia segunda parte del simula- 
dor de vuelo, puedes arrancar los mo- 
tores y obsevar cómo adquiere vida tu 
panel de instrumentos. Pero ten cuida- 
do: ¡El piloto automático se ha vuelto 
loco! 

En la primera parte has tecleado las 
líneas que reproducían sobre la panta- 



lla el interior de la cabina de vuelo. 

En esta parte verás adquirir movi- 
miento a tu avión y cómo adquiere 
vida el panel de instrumentos; de 
modo que, aunque todavía no has to- 
mado los mandos, puedes ver cómo 
responde el panel de instrumentos del 
avión ante los movimientos del mis- 
mo. 



EL AVION VUELA 

En esta parte hay una larga serie de 
variables interdependientes que tie- 
nen que ser constantemente actuali- 
zadas para controlar el avance del 
avión. Además hay que volver a di- 
bujar de modo constante el panel de 
instrumentos a medida que se van 
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modificando la posición y la altura. 

La proximidad de la pista te será se- 
ñalada a partir de los l.OOÜ metros de 
distancia. Uno de los diales alertará de 
forma intermitente sobre cuál es la 
pista designada desde la torre de con- 
trol como lugar de aterrizaje. Debes 
memorizar con precisión este valor, 
pues a partir de los 900 metros no ten- 
drás más información sobre él. 

Durante el vuelo, no intentes virar 
el avión a menos de 200 metros de al- 
tura debido a que podría peligrar la 
vida no sólo de los viajeros, sino tam- 
bién de los ciudadanos que estén cir- 
culando por las calles de la ciudad o 
en sus rascacielos. 

Para poder actualizar los diales y los 
contadores hay que hacer una esti- 
mación de las variables que van cam- 
biando con arreglo a la forma en que 
afectan a las lecturas, después de lo 
cual se puede rehacer el dibujo. 

Para poder dibujar con precisión la 
posición del avión hay que tener en 
cuenta muchos factores, por ejemplo, 
la dirección en que estás volando, la 
velocidad de avance, que depende en 
parte del peso del combustible o de la 
velocidad de ascenso. 

620 AL=AL+A1 

630 VE=VE+V1 

640 GR=GR+G1 

650 DI = DI-INT(VE/60) 

660 CO=CO-INT(VE/1000) 

670 REM FACTORES PESO 

COMBUSTIBLE 
680 VE = VE-INT(CO/40000!) 
690 AL = AL-INT(CO/40000!) 

700 REM 

710 P1=VE/100:IF Pl = >31 

THEN Pl=31 
720 P2 = AL/200:IF P2 = >15 

THEN P2=15 
730 IF P1 = <1 THEN Pl = l 
740 IF P2 = <1 THEN P2=l 
750 SOUND 6,P1:S0UND 8,P2 
760 LINE (11,R1)-(244,R2),1 
770 Rl=AL*100/3000 + Yl 
780 R2 = AL*100/3000+Y2 
790 IF R1 = <11 THEN Rl = ll 
800 IF R2 = <11 THEN R2=ll 
810 IF Rl = >99 THEN Rl=99 
820 IF R2 = >99 THEN R2 = 99 



830 LINE (11,R1)-(244,R2),3 
840 IF Dl<1000 AND Dl>900 

THEN GOSUB 940 
850 IF Dl<0 THEN GOTO 1230 
860 IF AL>15000 THEN GOTO 

980 

870 IF AL<0 THEN GOTO 1040 
880 IF CO = <0 THEN GOTO 
1080 

890 IF VE<100 THEN GOTO 
1120 

900 IF VE>2500 THEN GOTO 
1150 

910 IF K$ = "0" AND AL = <200 

THEN GOTO 1550 
920 IF K$ = "P" AND AL=<200 

THEN GOTO 1550 
930 GOTO 340 
940 PSET (200,135), 1 
950 PRINT # l.PP 
960 LINE (201,131)-(249, 

149U.BF 
970 RETURN 

La línea 620 realiza el descenso y as- 
censo automático del avión, mientras 
que la 630 realiza la misma función 
con la velocidad. La línea 640 se en- 
carga de desplazar el avión efectuando 
las funciones de timón, en busca de al- 
canzar la orientación adecuada para 
poder aterrizar. 

La línea 650 decrementa la distancia 



del aeropuerto dependiendo de la ve- 
locidad de tu aparato. La línea 660 
hace disminuir el combustible de tu 
depósito dependiendo también de la 
velocidad. En la línea 680 se hace dis- 
minuir la velocidad con relación al 
peso del combustible. La 690 hace lo 
mismo que la anterior, pero variando 
la altura. 

Las líneas 710 y 720 se encargan de 
que los valores de las sentencias 
SOUND no rebasen un valor superior 
a 31 y 15. Las líneas 730 y 740 realizan 
la misma función, pero impidiendo 
que su valor sea inferior a l. 

La línea 750 altera los registros del 
PSG 6 y 8, logrando así el sonido de 
los reactores. En la 760 se hace desa- 
parecer de la pantalla el último hori- 
zonte dibujado y en las líneas 770 y 
780 se calcula la inclinación del avión 
respecto del horizonte. Desde las lí- 
neas 790 hasta la 820 se controla el 
movimiento del horizonte, impidiendo 
que éste salga fuera de los límites de 
la supuesta ventana del avión. 

La línea 830 dibuja por fin el nuevo 
horizonte calculado. Entre las líneas 
840 a 920 se realizan llamadas a varias 
subrutinas encargadas de mostrar en 
pantalla la causa del accidente. 

Las líneas comprendidas entre la 
940 y la 970 se encargan de mostrar 
durante algún tiempo la pista de ate- 
rrizaje elegida por la torre de control. 
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EL JUEGO 
«MASTER MIND» 



Masacrar marcianos puede conver- 
tirse en un deporte de reflejos y nervios 
de acero. 

Aprovechando la cita de que 
«cuerpo sano en mente sana» os pre- 
sentamos para que tecléis el archico- 
nocido juego del MASTER MIND. 
Será para vosotros el descanso del 
guerrero espacial. Pero, ¡atención!, 
concentraros y no estéis en la luna de 
Titán: el juego no perdona, y pocas 
posibilidades tenemos de ganarles a 
las maléficas garras del ordenador. 

100 CLS:KEY OFF 
110 REM ** VARIABLES **** 
120 GOTO 1340 
130 C=1:H = 28:M = 0:N=0 
140 OPEN "GRP:"AS # 1 
150 CLS:SCREEN 2:C0L0R 15, 
4,4 

160 LINE(15,0)-(250,191),15, 
B 

170 LINE(160,25)-(245,189), 
15, B 

180 LINE(16,3)-(250,23),15, 
BF 

190 FOR J=60 TO 140 STEP20 
200 FOR 1 = 30 TO 190 STEP 
14 

210 CIRCLE(J,I),5,7 
220 NEXT l,J 

230 REM ** NUMERO COLORES 

* * 

240 CIRCLE(30,35),7, 

1:PAINT(30,35),1,1 
250 CIRCLE(30,55),7, 

2:PAINT(30,55),2,2 
260 CIRCLE(30,75),7, 

10:PAINT(30,75),10,10 
270 CIRCLE(30,95),7, 

13:PAINT(30,95),13,13 
280 CIRCLE(30,115),7, 

5:PAINT(30,115),5,5 
290 CIRCLE(30,135),7, 



15:PAINT(30,135), 15,15 
300 CIRCLE(30,155),7, 

7:PAINT(30,155),7,7 
310 CIRCLE(30,175),7, 

9:PAINT(30,175),9,9 
320 C0L0R15:F0RI = 31 TO 178 

STEP 20 
330 K=K+1 

340 PSET(35,I),15:PRINT # l.K 

350 NXT I 

360 W=l 

370 J = 60:l = 30 

380 REM ***** ENTRADAS 

COLORES ***** 
390 LINE(16,3)-(250,23),15, 

BF:PRESET(25,10):COLOR1 
400 X=l 
410 GOTO 450 
420 J=J + 20:X=X+1:BEEP 
430 REM **CAMBIO DE LINEA** 
440 IF X>5 THEN X=1:G0T0 

600 

450 K$ = INKEY$ 
460 IF K$ = ""THEN GOTO 
450 

470 Z=VAL(K$) 
480 IF Z<1 OR Z>8 THEN 
450 

490 IF Z = 3 THEN Z=10 
500 IF Z = 4 THEN Z=13 
510 IF Z=8 THEN Z=9 
520 IF Z = 6 THEN Z=15 
530 CIRCLE (J,I),5,Z:PAINT(J,I), 
Z,Z 

540 IZ Z=10 THEN Z = 3 
550 IF Z=13 THEN Z = 4 
560 IF Z = 9 THEN Z = 8 
570 IF Z=15 THEN Z = 6 
580 GOTO 790 

590 ***** RECTIFICAR ***** 
600 LINE(16,3)-(250,23),15, 
BF:PRESET(50,10):COLOR 
1:PRINT#1, "ESTAS 
SEGUR07S/N" 
610 A$=INKEY$ 



i ¡«MASTER MIND» ATACA 

DE NUEVO! 

■ EL REPOSO DEL GUERRERO 

ESPACIAL 

■ MAXIMA CONCENTRACION 



620 IF A$ = "S" OR A$ = "s" 
THEN W=W+l:GOTO 
980 

630 IF A$="N" OR A$"n" THEN 

N = 0:B = 0:C=1:GOTO 

670 

640 IF A$ = <> THEN 610 
650 l = l + 14:J=J-100 
660 IF W = >13 THEN 690 ELSE 
390 

670 J=J-100:GOTO 390 
680 REM *** SOLUCION AL 

CODIGO *** 
690 LINE(16,3)-(2502,3),15, 

BF:PRESET(14,10):COLOR 

1:PRINT#1, 

"EL CODIGO ES..." 
700 GOTO 1040 
710 REM ** CODIGO 

ALEATORIO *** 
720 FOR 1= 1 TO 5 
730 A(I) = INT(RND(-TIME) 

*8)+l 

740 IF A(I)=Y(A(D) THEN730 
750 Y(A(I))=A(I) 
760 NEXT I 

770 FOR J=l TO 500:NEXT J 

780 GOTO 130 

790 REM ** COMPARACION 

COLORES ** 
800 ON C GOTO 810,850,880, 

910,940 
810 IF Z=A(1) THEN N = 

N + l 

820 IF Z = A(2) OR Z=A(3) OR 

Z=A(4) OR Z=A(5)THEN 

B = B+1 
830 C=C+1 
840 GOTO 420 
850 IF Z=A(2) THEN N = N + 1 
860 IF Z=A(1) OR Z=A(3) OR 

Z = A(4)OR Z = A(5)THEN 

B = B+1 
870 C=C+l:GOTO 420 
880 IF Z=A(3)THEN N = N + 1 
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890 



900 
910 
920 



930 
940 
950 



960 
970 
980 

990 



IFZ=A(1)0R Z=A(2)0R 
Z=A(4)0R Z=A(5)THEN 
B = B + 1 

C=C+1:G0T0 420 
IF Z=A(4)THEN N = N + 1 
IF Z=A(1)0R Z = A(2) OR 
Z=A(3) OR Z = A(5)THEN 
B = B+1 

C=C+l:GOTO 420 
IFZ=A(5)THEN N = N + 1 
IF Z=A(1) OR Z=A(2) OR 
Z=A(3) OR Z=A(4)THEN 
B = B+1 

C=C+l:GOTO 420 
REM *** ACIERTOS *** 
COLOR 15:PRESET(160, 
H):PRINT # 1,N"B" B"A" 
IF N = 5 AND B = THEN 
1840 
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G:PAINT(80,12),G,G:GOTO 
1120 

1240 CIRCLE(100,12),5, 

G:PAINT(100,12),G, 

G:GOTO1 1 20 
1250 CIRCLE(1¿0,12),5, 

G:PAINT(120,12),G, 

G:GOTO1120 
1260 CIRCLE(140,12),5, 

G:PAINT(140,12,G,G 
1270 LINE(150,3)-(250,23),4, 

BF:PRESET(160, 

10):COLOR1:PRINT#1, 

"OTRA?S/N" 
1280 CLEAR 
1290 K$=INKEY$ 
1300 IF K$ = "S" OR K$ = "s" 

THEN 1730 
1310 IF K$ = "N" OR K$ = "n" 




THEN 1910 
1320 GOTO 1290 
1330 *** PRESENTACION *** 
1340 SCREEN 1 
1350 C$="S10M9000O5L9CF 

GAL4GL2ER40L9CFGAL2 

GR40L9CFGAGL2ER40L9 

EFECR40LC" 
1360 PLAYC$ 
1370 COLOR 15:LOCATE 8, 

7:PRINT"J.M.DEALBERT" 
1380 LOCATE 12,9-.PRINT"PARA" 
1390 LOCATE 8, 

11:PRINT"INPUT-M.S.X." 
1400 FOR 1 = 1 TO 1500:NEXT I 
1410 C = 1:Q=15 
1420 SCREEN 2 
1430 FOR 1 = 5 TO 80 STEP 10 
1440 CIRCLE(120,80),I,Q 
1450 Q=1-1:NEXT I 
1460 FOR J = 5 TO 80 STEP 10 
1470 CIRCLE (120,80), J,C 
1480 C = C+1:NEXTJ 
1490 SCREEN 3:OPEN 

"GRP:"AS # 1 
1500 PLAYC$ 
1510 FOR S=l TO 3 
1530 PRESET(50,30):PRINT#1, 

"SUPER" 
1540 PRESET940,90):PRINT# 

1,"MASTER" 
1550 PRESET(60,150):PRINT# 

1,"MIND" 
1560 NEXTS 
1570 CLOSErSCREEN 
1580 PRINT"ESTE ES EL 

CONOCIDO JUEGO DEL 

MASTER" 
1590 PRINTrPRINT" MIND.DE 

OCHO COLORES, EL 

ORDENADOR" 
1600 PRINT:PRINT"ELIGE UN 

CODIGO DE CINCO 

DIFERENTES." 
1610 PRINT:PRINT" TIENES 

QUE AVERIGUAR ESTE 

CODIGO." 
1620 PRINT:PRINT"PARA ELLO 

TIENES 12 POSIBILIDADES" 
1630 PRINT:PRINT"PUDIENDO 

RECTIFICARAN CADA 

JUGADA," 



1640 PRINT:PRINT"DESPUES 

DE TU JUGADA, A LA 

DERECHA" 
1650 PRINT:PRINT" SE TE 

INDICARAN LOS ACIERTOS" 
1660 PRINT:PRINT" B 

POSICION+COLOR (no 

indica lugar)" 
1670 PRINT:PRINT" A COLOR 

(solamente) 
1680 PRINT:PRINT"(NO HAY 

COLORES REPETIDOS. SI 

REPITES" 
1690 PRINT"COLORES LOS 

ACIERTOS SERAN 

FALSOS)" 
1700 PRINT" PARA SEGUIR 

PULSA TECLA" 
1710 K$=INKEY$ 
1720 IF K$ = ""THEN 1710 
1730 FOR L= 1TO 3 
1740 FOR 1 = TO 13 
1750 SOUND 1,0 
1760 NEXT I 

1770 SOUND7,62:SOUND 8,15 

1780 FOR 1 = TO 255 

1790 SOUND 0,1 

1800 NEXT I 

1810 SOUND 8,0 

1820 NEXT L 

1830 GOTO 710 

1840 REM *** ACIERTO DE 

CODIGO *** 
1850 LINE(16,3)-(250,23),15,BF 
1860 PLAY"S 10M900O5L9CFG 

AL4GL2ER40L9CFGAL2G 

R40L9CFGAGL2ER40L9E 

FECR40L4C" 
1870 FOR 1 = 1 TO 15 
1880 PRESET(25,10):COLOR 

l:PRINT#l,"! 

ENHORABUENA 

ACERTASTE !" 
1890 NEXT I 
1900 GOTO 1050 
1910 CLS:COLOR 15,4,4: KEY 

ON: SCREEN 
1920 LOCATE 10,10:PRINT 

"Gracias por jugar!" 
1930 PLAY"V1 5O5L30ADFCGE 

D" 

J.M. Dealbert 
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EL TIEMPO 
EN MSX-2 



Tras una competida selección, publi- 
camos un primer trabajo, enviado por 
un lector para nuestro Concurso de 
aplicaciones. Se trata de que os animéis 
a participar. Siempre hay alguna faceta 
de vuestro ordenador que se puede po- 
tenciar o definir. 

El programa es para los MSX-2 y se 
llama RELOJ MSX-2, en él se apro- 
vecha el reloj interno de los MSX-2, 
utilizando al mismo tiempo la función 
de fecha; además, con el temporizador 
interno, y la función TIME le incor- 
poramos un cronómetro. El manejo 
del programa es muy sencillo: tras la 
presentación y las instrucciones que 
muestra el programa, entramos direc- 
tamente en la función HORA y desde 
ahí, moviendo una pequeña flecha que 
aparece en pantalla (con las teclas de 
cursor), pulsamos la opción deseada 
(con la tecla de cursor '>'). 



En cuanto a estructura, el programa 
comienza en una subrutina de inicia- 
lización en donde se establecen los va- 
lores iniciales de las variables, el modo 
SCREEN, etc. Después viene otra 
subrutina que contiene los GOSUB's, 
desde ahí se entra en la presentación, 
en las instrucciones y en las rutinas de 
dibujo de la pantalla; después entra- 
mos automáticamente en la función 
HORA con un GOTO y desde ahí, 
mediante GOTOs, se pasa de unas 
funciones a otras, en el programa van 
separadas e indicadas todas las subru- 
tinas con REM's. 



Alvaro Rodríguez 

Alvaro Rodríguez *** 
*** Reloj MSX2 *** 



10 1 
20 1 
30 ' 

40 ' SUBRUTINA DE 
INICIALIZACION 



50 
60 

70 

80 

90 

100 

110 

120 

130 

140 

150 



STOP ON:ON STOP GOSUB 
1500 

V=9:H = 10:SP=1 

COLOR, 2,2 

SCREEN 7 

KEY OFF 

STRIG(0) ON 

KEY(1)0N 

0PEN"GRP:"AS#1 
> 

' LANZAMIENTO DE 
SUBRUTINAS 



160 
170 
180 
190 
200 
210 



GOSUB 1500 
GOSUB 1350 
GOSUB 960 
GOSUB 320 
GOSUB 780 
220 GOSUB 910 
230 V=120:H = 120:GOSUB 320 
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UN RELOJ ELECTRONICO 



INICIALIZACION 



CORREA DEL RELOJ 



LA HORA Y LA FECHA 



LA PARTE CENTRAL 



DIBUJO DEL TITULO 



LOS SPRITES 



COMPROBADOR DE OPCION 



INSTRUCCIONES 



PRESENTACION 



240 ' 

250 1 INICIALIZACION 

260 ' 

270 GOTO 400 
280 ' 

290 ' DIBUJA CORREA RELOJ 
300 ' 

310 COLOR ,2,2 

320 FOR Y=V TO V+60 STEP 10 

330 LINE(200,Y)-(260,Y+10), 

1, BF 

340 LINE(200,Y)-(260,Y),15 
350 NEXTY 

360 LINE(200,H)-(200,H + 70), 
15 

370 LINE(260,H)-(260,H + 70), 
15 

380 RETURN 

390 ' 

400 ' ESCRIBE LA HORA 
410 ' 

420 BEEP:PRESET(210,71), 

1:PRINT#," HORA" 
430 LINE(291,71)-(479,119), 

2, BF 

440 LINE(290,70)-(480,120), 

1. B 

450 PRESET(295,83), 

1:PRINT#1, "Pulsa barra 

para elegir" 
460 PRESET(300,100), 

1:PRINT#1," opción" 
470 GETTIME A$ 
480 PSET(199,90),1:PRINT#1, 

A$ 

490 STRIG(0)ON:ONSTRIG 

GOSUB 1100 
500 GOTO 470 
510 * 

520 1 ESCRIBE LA FECHA 
530 ' 

540 PRESET(210,71), 

1:PRINT#1, "FECHA" 
550 LINE(291,71)-(479,119), 

2, BF 



560 GETDATE B$ 
570 PRESETÜ99.90), 

1:PRINT#1,B$ 
580 LINE(290,70)-(480,120), 

1,B 

590 PRESET(300,86), 

15:PRINT#1, "Pulsa TI' 

para volver" 
600 PRESET(305,100), 

15:PRINT#1," a la hora." 
610 KEY(l)ON:ON KEY GOSUB 

1340 
620 GOTO 610 
630 ' 

640 ' ENTRA EN CRONO 
650 ' 

660 BEEP:LINE(290,70)-(480, 

120), 2, BF 
670 TIME = 
680 PRESET(210,71), 

1:PRINT#1, "CRONO" 
690 S = TIME/50 
700 PRESET(199,90, 

1:PRINT#1,M;":";INT(S) 
710 IF S>59 THE TIME=0 
720 IF S>59 THEN M = M + 1 
730 LINE(290,70)-(480,120), 

1,B 

740 PRESET(300,86), 

15:PRINT#1, "Pulsa *F1' 

para volver" 
750 PRESET(305,100), 

15:PRINT#1," a la hora." 
760 KEY(l)ON :ON KEY GOSUB 

1340 
770 GOTO 690 
780 ' 

790 ' DIBUJA PARTE CENTRAL 

DE RELOJ 
800 1 

810 LINE(190,70)-(270,120), 
4,BF 

820 LINE(195,70)-(270,120), 
1,B 

830 LINE(195,80)-265,110),8, 



BF 

840 LINE(195,80)-(265,110), 
1,B 

850 LINE(186,84)-(190,89),1B 
860 LINE(186,100)-(190,105), 
1,B 

870 RETURN 
880 ' 

890 * DIBUJA TITULO 
900 * 
910 ' 

920 LINE (37,84)-(147,103),8, 
BF 

930 LINE (37,84)-(147,103),l, 
B 

940 PRESET(50,90), 

8:PRINT#1,"REL0J MSX-2" 
950 RETURN 
960 ' 

970 1 DEFINICION DE SPRITE 
980 ' 

990 S1$ = CHR$(&B00000000) 
1000 S2$ = CHR$(&B00010000) 
1010 S3$ = CHR$(&B00011000) 
1020 S4$ = CHR$(&B11111100) 
1030 S5$=CHR$(&B11111110) 
1040 S6$ = CHR$(&B11111100) 
1050 S7$ = CHR$(&B00011000) 
1060 S8$ = CHR$(&B00010000) 
1070 SP$=S1$+S2$+S3$+S4$ 

+S5$+S6$+S7$+S8$ 
1080 SPRITE$(1)+SP$ 
1090 RETURN 
1100 1 

1110 * MOV. DE SPRITE 
1120 * 
1130 BEEP 

1140 LINE(290,70)-(480,120), 
2,BF 

1150 LINE(290,70)-(480,120), 
1,B 

1160 PRESET(300, 

77)1:PRINT#1," Mueve 

flecha" 
1170 PRESET(300, 90), 
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XI 



XII 



XXIV 



XXIII 



XIII 



XXII 



IX xxi 



VIII 



XX 



\ 



XIV 

XV III 



XVI 



IV 



XIX 



VII 



XVIII 

VI 



XVII 

V 



1:PRINT#1," y selecciona 
opción" 

1180 Y=90:PRESET(300,103), 

LPRINT #1," 1 .-Fecha 

2.-Crono" 
1190 C=STICK(0):J=STICK(1) 
1200 IF C=l OR J = l THEN 

Y=Y-3 
1210 IF C = 5 OR J=l THEN 

Y=Y+3 
1220 IF Y>104 THEN Y= 

103 

1230 IF Y<75 THEN Y=76 
1240 PUT SPRITE 0,(85, Y), 
1,1 

1250 IF C=3 OR J=3 THEN 

GOSUB 1280 ELSE GOTO 
1190 

1260 RETURN 390 

1270 GOTO 1190 

1280 ' 

1290 ' COMPROBADOR DE 
OPCION 



1300 ' 

1310 IF Y<95 THEN BEEPrGOTO 
520 

1320 GOTO 640 
1330 RETURN 390 
1340 GOSUB 400 
1350 ' 

1360 ' INSTRUCCIONES 
1370 ' 

1380 COLOR 1,2,2 
1390 LINE(0,0)-(512,212),2, 
BF 

1400 PRESET(200,40):PRINT#1, 

"INSTRUCCIONES" 
1410 PRESET(70,60):PRINT#1, 

"Partiendo de la función 

—RELOJ— puedes 

acceder" 
1420 PRESET(70,80):PRINT#1, 

"A la función —FECHA— o 

a — CRONO— pulsando pri-" 
1430 PRESET(70,100):PRINT#1, 

"mero la barra espaciadora y 



después guiando" 
1440 PRESET(70,120):PRINT#1, 

"la flecha hasta la opción 

elegida (l. er . pul-" 
1450 PRESET(70,140):PRINT#1, 

"sador-FECHA 2.°-CR0N0). 

Para volver a la hora" 
1460 PRESET(70,160):PRINT#1, 

"y poder escoger otra 

función, basta con 'Fl'." 
1470 PRESETÜ60, 

180):PRINT#1, "PULSA 'C 

PARA CONTINUAR" 
1480 l$=INKEY$:IF l$o"C" 

THEN 1480 
1490 CLS;RETURN 
1500 ' 

1510 ' PRESENTACION 
1520 1 
1530 CLS 

1540 D1$="D40R10U18R10F1 
9R10H20E10U11L39" 

1550 D2$="D10R15E5U5L1 
9" 

1560 D4$="D40R30U8L20U32 
L10" 

1570 D5$="D40R35U40L35" 
1580 D6$="D25R15U25L15" 
1590 D7$="R50D8L15D20G12 

L20U5D5U8R15E5U19L2 

3U8" 

1600 D8$="D50R15U30F20R1 

0E20D30R15U50L10G30 

H30L10" 
1610 D9$="D30R35D13L35D7 

R45U27L33U15R33U8L4 

5" 

1620 DA$="R15F20E20R15G2 
5F25L15H20G20L15E25 
H25" 

1630 DB$="R20D7L20U7" 
1640 DC$="R40D25L30D18R3 
0D7L40U32R30U10L30U 

7" 

1650 D3$="R30D8L20D8R20D 

8L20D8R20D8L30U40" 
1660 FOR B=50 TO 52 
1670 PSET(B,20),1 
1680 DRAW Dl$ 
1690 NEXT B 
1700 FOR B=59TO 61 
1710 PSET(B,25),1 
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1720 DRAW D2$ 

1730 NEXT B 

1740 FOR B=110 TO 112 

1750 PSET(B,25),1 

1760 DRAW D3$ 

1770 NEXT B 

1780 FOR B=160 TO 162 

1790 PSET(B,20),1 

1800 DRAW D4$ 

1810 NEXT B 

1820 FOR B=210 TO 212 

1830 PSET(B,25),1 

1840 DRAWD5$ 

1850 NEXT B 

1860 FOR B=220 TO 222 

1870 PSET(B,32),1 

1880 DRAWD6$ 

1890 NEXT B 

1900 FOR B=260 TO 262 

1910 PSET(B,20),1 

1920 DRAW D7$ 

1930 NEXTB 

1940 FOR B=80 TO 82 

1950 PSET(B,100),1 

1960 DRAW D8$ 

1970 NEXT B 

1980 FOR B=170 TO 172 

1990 PSET(B,110),1 

2000 DRAWD9$ 



2010 NEXT B 

2020 FOR B = 220 TO 222 

2030 PSET(B,100),1 

2040 DRAW DA$ 

2050 NEXT B 

2060 FOR B = 280 TO 282 

2070 PSET (B, 120), 1 

2080 DRAW DB$ 

2090 NEXT B 

2100 FOR B=310 TO 312 

2110 PSET (B, 110), 1 

2120 DRAW DC$ 

2130 NEXT B 

2140 CIRCLE(410,95),25,Í„, 



.6:LINE(400,30)-(420,80), 
l.BF 

2150 LINE(400,110)-(420,160), 

1,BF:PSET(410 ( 95), 

1:DRAW"G10E10F7" 
2160 PRESET(190,205), 

15:PRINT#1, "ESPERA UN 

MOMENTO" 
2170 PRESET(50,170), 

15:PRINT#l,"Por Alvaro 

Rodríguez Alonso" 
2180 FOR 1 = 1 TO 5000:NEXT 
2190 V=9:H = 10:RETURN 

180 



NO OLVIDES EL TELEFONO... S 

Cuando, por cualquier motivo, nos escribas, no 
olvides indicar tu número de teléfono. Así nos será más 
fácil y rápido ponernos en contacto contigo. Gracias. 



GANADORES DE LOS MEJORES DE INPUT MSX 

En el sorteo correspondiente al número 18 entre quienes escribisteis mandando vuestros votos a LOS MEJORES 
DE INPUT han resultado ganadores: 



NOMBRE 

JORGE HERNAN SANZ 
JORGE FERNANDEA HERRERO 
ESTELA GONZALEZ VAZQUEZ 
CARLOS DANIEL BARRERA FREIGE 
JOSE ALBERTO BONMATI CELDRAN 
JOSE MANUEL BENITEZ VEGA 
JOSE LUIS VIDERAS MOLINA 
JOSE SANCHO MARTINEZ 
JUAN CARLOS MECA REAL 
FCO. JAVIER GENIL SANCHEZ 



LOCALIDAD 

Iscar (Valladolid) 
Parla (Madrid) 

S. de Compostela (La Coruña) 

Alcorcón (Madrid) 

Sta. Pola (Alicante) 

Salou (Tarragona) 

Motril (Granada) 

Barcelona 

Motril (Granada) 

S. Fernando (Cádiz) 



JUEGO ELEGIDO 

SPIT FIRE 40 
BALONCESTO 
NEW WAVE 
NEMESIS 

VOINCIN PROGRAM 

NEMESIS 

JAIL BREAK 

SOCCER 

HIPERRALLY 

LE MANS II 
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En INPUT estamos convencidos de que aún 
puedes hacer muchas más cosas con tu 
ordenador. Sin duda, muchos lectores estaréis 
utilizando vuestro micro para funciones de lo más 
variadas, en unos casos; pintorescas, en otros; 
mientras que algunos listillos habrán podido 
utilizarlo para resolver tareas complejas. Es lógico, 
modificando programas y variando los periféricos 
nuestro ordenador puede prestar sus servicios en 

infinidad de facetas. INPUT quiere que esas 
aplicaciones y utilidades a las que has conseguido 

dedicar tu ordenador, sean conocidas por todos 
sus lectores y por eso ha organizado el «Concurso 
de Aplicaciones y Utilidades», en el que puede 
participar cualquiera de nuestros lectores. 






UTILIDADES Y APLICACIONES: Si tu orde- 
nador controla la calefacción de tu casa, gobierna 
un robot, dirige un pequeño negocio, organiza la 
maqueta de tu tren eléctrico, o cualquier cosa in- 
teresante u original; envíanos información gráfica y 
listados de tus programas, grabados en un cassette, 
diskette o microdrive. 

Todo ello habrá de venir acompañado por un 
texto que aclare cuál es su objetivo, el modo de fun- 
cionamiento y una explicación del cometido que 
cumplen las distintas rutinas que lo componen. El 
texto se presentará en papel de tamaño folio y me- 
canografiado a dos espacios. No importa que la re- 
dacción no sea muy clara y cuidada; nuestro equipo 
de expertos se encargará de proporcionarle la forma 
más atractiva posible. 

UN JURADO propio decidirá en cada momento 
qué colaboraciones reúnen los requisitos adecuados 
para su publicación, y evaluará la cuantía del pre- 
mio en metálico al que se hagan acreedoras. 

No olvidéis indicar claramente para qué ordena- 
dor está preparado el material, así como vuestro 



nombre y dirección y, cuando sea posible, un telé- 
fono de contacto. Entre todos los trabajos recibidos 
durante los próximos tres meses SORTEARE- 
MOS: 

• Un premio de 50.000 ptas. 

• Un premio de 25.000 ptas. 

• Un premio de 10.000 ptas. 

en material microinformático a elegir por 
los afortunados. 

¡No os desaniméis!, por muy simples o complejas 
que puedan parecer vuestras ideas, todas están re- 
visadas con el máximo interés. 

INPUT MSX 

Aribau, 185. Planta 1. a 
08021 BARCELONA 



NOTA: INPUT no se responsabiliza de la devolución del ma- 
terial que no vaya acompañado por un sobre adecuado con el 
franqueo correspondiente. 
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ESTADISTICA 
Y ORDENADOR 



La estadística se emplea en innume- 
rables áreas de la vida social y econó- 
mica. Cuando esta ciencia empleó inten- 
sivamente los soportes informáticos 
se expandió irreversiblemente. El si- 
guiente programa es una buena muestra 
del funcionamiento combinado de la es- 
tadística y el ordenador. 

Para tus primeros pasos en el 
mundo de la estadística hemos pen- 
sado en un programa que nos ayude a 
la clasificación de muestras. Una 
muestra agrupa un grupo, del que se 
analizan sus características. Luego, los 
resultados de esa muestra se compa- 
ran con los índices estadísticos teóri- 
cos de un conjunto de población. 

Este programa estadístico admite 
una variable cualitativa de dos cate- 
gorías, o lo que es lo mismo, permite 
introducir dos rasgos característicos de 
la muestra, para analizar si se corres- 
ponden con los de la población. 

Por ejemplo, las exportaciones y las 
importaciones, a la hora de comparar 
intercambios económicos internacio- 
nales. La proporción de hombres y 
mujeres en un lugar determinado y su 
correspondencia o no con los índices 
teóricos generales sobre la participa- 
ción de cada sexo en el conjunto de la 
sociedad. 



EL PROGRAMA 

Una vez cargado, el programa nos 
señalará todos los pasos que dar: 

10 CLS:KEYOFF:WIDTH 37 

14 CLEAR 

15 DEFSNG A-Z 

20 PRINTTAB(5)"ESTUDI0 DE 

UNA SOLA VARIABLE" 
30 PRINT TAB(5)" 



40 PRINT 

50 PRINT TAB(15)"M E N U" 



60 PRINT 

TAB(15)" " 

70 PRINT 

80 PRINT TAB(3)" — 1 — 

VARIABLE CUALITATIVA DE 
DOS" 

90 PRINT TAB(8)"CATEG0RIAS" 
100 PRINT TAB(3)"— 2— 

VARIABLE CUALITATIVA DE 

MAS" 

110 PRINT TAB(8)"DE DOS 

CATEGORIAS" 
120 PRINT TAB(3)" — 3 — 

VARIABLE CUANTITATIVA" 
130 PRINT 
135 BEEP:BEEP 
140 PRINT TAB(8)"PULSA <1> 

<2> <3>" 
150 A$ = INKEY$:IF A$ = "" 

THEN 150 
155 IF A$<>"1" AND A$<>"2" 

AND A$<>"3" THEN 10 

ELSE A=VAL (A$) 
160 0N A GOTO 1000,2000,3000 

Comenzaremos trabajando única- 
mente con una variable para pasar, en 
un posterior programa, al trabajo con 
dos variables. 

Primeramente habilitaremos la pan- 
talla mediante la eliminación de las in- 
dicaciones de las teclas de función, y 
expandiremos la amplitud de la pan- 
talla a 40 caracteres (línea 10). 

La línea 14 tiene por finalidad la ini- 
cialización de las distintas variables, 
cosa que resulta muy útil, si deseamos 
hacer varios cálculos. 

En la línea 15 del programa, reali- 
zamos la definición del tipo de va- 
riables. Para ello hacemos uso de la 
instrucción DEFSNG. que nos define 
todas las variables como de simple 
precisión. Esta utilización se debe al 
ahorro del espacio que supone, sin 
merma significativa de la precisión de 
los diferentes cálculos. 



TRABAJANDO 



CON UNA VARIABLE 


■ 


PUESTA A PUNTO 


DE LA PANTALLA 


■ 


MENU 



Las líneas 20 a 160 son un menú que 
nos permite escoger el tipo de trata- 
miento que deseamos aplicar. Pode- 
mos optar entre trabajar con variables 
cualitativas de dos o más categorías, o 
con variables de tipo cuantitativo. 

Algunas de estas opciones las tra- 
taremos en otros números. 

1000 GOSUB 5000 
1005 CLS 
1010 P=l 

1020 FOR X=0 TO N-l 
1030 IF V(X)=V(X+1) THEN 

P=P+1 ELSE X=N-1 
1040 NEXT X 
1050 Q=N-P 
1060 P0 = P/N:Q0=1-P0 
1070 PRINT TAB(5) 

"PROPORCIONES 

OBSERVADAS" 
1080 PRINT 

1090 PRINT TAB(5) "PO = ";PO; 

SPC(10);"QO=";QO 
1095 BEEP:BEEP 
1100 PRINT TAB(5) "PULSA C 

PARA CONTINUAR" 
1120 B$ = INKEY$:IF B$="" 

THEN 1120 
1125 IF B$o"c" AND 

B$o"C" THEN 1100 
1130 CLS 

1140 PRINT:PRINT TAB(15) "M 

E N U" 
1150 PRINT TAB(15) 



1160 PRINT:PRINT TAB(3) 

"— 1— CONOCIENDO EL 
VALOR DE LA" 

1170 PRINT TAB(3) 

"PROPORCION EN LA 
POBLACION ORIGEN" 

1180 PRINT TAB(3) "VERIFICAR 
SI LA MUESTRA 
PERTENECE" 

1190 PRINT TAB(3) "A ESTA 



INPUT 47 



Aplicaciones 



POBLACION." 
1200 PRINT:PRINT TAB(3) 

"—2— SEGUN LA 

PROPORCION DE LA" 
1210 PRINT TAB(3) "MUESTRA, 

DETERMINAR ENTRE QUE 

VALORES" 
1220 PRINT TAB(3) "SE 

ENCUENTRA LA 

PROPORCION EN LA" 
1230 PRINT TAB(3) 

"POBLACION ORIGEN" 
1240 PRINT:PRINT TAB(3) 

"—3— SEGUN LA 

PROPORCION TEORICA" 
1250 PRINT TAB(3) "VERIFICAR 

SI LA MUESTRA 

PERTENECE A" 
1260 PRINT TAB(3) "UNA 

POBLACION EN LA QUE 

SE DA" 
1270 PRINT TAB(3) "ESTA 

PROPORCION TEORICA." 
1275 BEEP:BEEP 
1280 PRINT:PRINT TAB(8) 

"PULSA <1> O <2> O 

<3>" 

1290 C$ = INKEY$:IF C$ = "" 

THEN 1290 
1295 IF C$<>"1" AND 

C$<>"2" AND C$<>"3" 

THEN 1130 ELSE 

C = VAL(C$) 
1300 ON C GOTO 1400,1700, 

1400 

1400 IF C$ = "l" THEN INPUT 

"PROPORCION DE LA 

POBLACION?" ; PP 
1410 IF C$ = "3" THEN INPUT 

"PROPORCION TEORICA?"; 

PP 

1420 C1 = PP*N:C2 = (1-PP)*N 
1430 IF Cl>5 AND C2>5 THEN 
1500 

1440 IF Cl<5 THEN PRINT 

TAB(5) PP;"*";N;" = ";C1; 

"<5" 

1450 IF C2<5 THEN PRINT 

TAB(5) 1-PP;* , *";N;" S ="; 

C2;"<5" 

1460 PRINTrGOSUB 
10000:GOSUB 
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10010:GOSUB 10020 
1465 BEEP:BEEP 
1470 PRINT:PRINT TAB(5) 

"PULSA C PARA 

CONTINUAR" 
1480 D$ = INKEY$:IF D$ = "" 

THEN 1480 
1490 IF D$o"C" AND 

D$o"c" THEN 1470 



-1- <:0MgCIEMI'O EL UftCOR PE LA 

PS B EA?ys« 7 gg.biN pRopoRc,oM EM ^ 

E^ F g|feg&8VoJ?'Tk8«m. SE "* 

FULS* <í> O <2> O <3> 



1500 
1510 
1520 

1530 



1540 

1550 

1560 

1570 
1575 



CLS 

GOSUB 10030 

IF Z<>5 AND Zol 

THEN 1500 

IF Z=5 THEN PS = PP+1.9 
6*SQR((PP*(1-PP))/N):P 
l = PP-1.96*SQR((PP*l- 
PP))/N) 

IF Z=l THEN PS = PP + 2.5 
76*SQR((PP*(1-PP))/N): 
PI = PP-2.576*SQR((PP* 
(1-PP))/N) 
PRINT "EL INTERVALO 
PARA LA MUESTRA ESTA 
ENTRE ";PS ; " Y " Pl 
IF PO< = PS AND PO> = PI 
THEN GOSUB 
10040:GOSUB 10050 
IF PO>PS OR PO<PI 
THEN GOSUB 10060 
GOSUB 10080 
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1580 END 
1700 CLS 

1710 GOSUB 10030 
1720 IF Z<>5 AND Z<>1 

THEN 1700 
1730 IF Z = 5 THEN PS = P0+1. 

96*SQR((P0*Q0)/N):PI = 

P0-1.96*SQR((P0*Q0)/ 

N) 

1740 IF Z= 1 THEN PS = P0 + 2. 
576*SQR((PO*QO)/N:PI = 
PO-2.576*SQR((PO*QO) 
/N) 

1750 PRINT TAB(3) "EL 
INTERVALO DE 
PROPORCION PARA" 

1755 PRINT TAB(3) "LA 
POBLACION ORIGEN ESTA 
ENTRE:" 

1756 PRINT TAB(3) PS ; " Y "¡Pl 
1760 C1 = PS*N:C2 = PI*N:C3 = 



(1-PS)*N:C4 = (1-PI)*N 
1770 IF Cl> = 5 AND C2> = 5 

AND C3> = 5 AND C4> = 5 

THEN 1999 
1780 IF Cl<5 THEN PRINT 

TAB(5) PS;"*";N;" = ";C1; 

"<5" 

1790 IF C2<5 THEN PRINT 

TAB(5) PI;"*";N;" = ";C2; 
"<5" 

1800 IF C3<5 THEN PRINT 

TAB(5) 1-PS;"*";N;" = "; 
C3;"<5" 

1810 IF C4<5 THEN PRINT 

TAB(5) 1-PI;"*";N;" = "; 

C4;"<5" 
1820 PRINT:GOSUB 

10000:GOSUB 

10010:GOSUB 10070 
1830 GOSUB 10080 
1999 END 



AGRUPAMIENTO DE 
PROPORCIONES 

Retornamos a continuación a la lí- 
nea 1005. Todo el procedimiento que 
abarca esta línea hasta la 1090, se en- 
carga de presentar las proporciones 
observadas en función de los datos in- 
troducidos. 

Seguidamente se despliega un menú 
de las distintas opciones a las que ac- 
cede esta parte específica del pro- 
grama. (Haremos notar, que de las 
tres opciones que se presentan, dos de 
ellas están referidas al mismo punto 
del programa. Esto es debido a que 
ambas son formulaciones diferentes 
de un mismo problema). 

Las líneas 1400 y 1410 solicitan las 
proporción teórica, según la opción 
escogida en la línea 1280. 

Las subsiguientes líneas, 1420 a 
1460, se encargan de la comprobación 
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del cumplimiento de las condiciones 
de aplicación de las pruebas que se de- 
sarrollan a continuación. 

En caso del cumplimiento de estas 
condiciones, el control del programa 
se desplaza a las líneas 1500 a 1580. 
encargadas de dar los resultados. 

La otra opción del menú nos lleva a 
la línea 1700, que se encarga de hacer 
una aproximación a la población ori- 
gen, a partir de los datos que hemos 
introducido como observaciones, y a 
continuación, comprueba la significa- 
tividad de los datos. 



5000 
5005 
5010 

5020 
5030 



5035 

5040 
5045 
5050 
5060 
5070 
5080 
5090 

5100 
5110 

5120 



CLS 

BEEP:BEEP 

INPUT "NUMERO DE 

VAL0RES";N 

DIM V(N-l) 

PRINT TAB(5) "ENTRAR 

LOS VALORES CON 

FORMATO" 

PRINT TAB(5) "NUMERICO 
1, 2,..." 

FÓR E=0 TO N-l 
BEEP:BEEP 
INPUT "VAL0R"¡V1 
V(E) = V1 
NEXT E 

FOR X=0 TO N-2 
IF V(X)>V(X+1) THEN 
SWAP V(X),V(X+1):S=1 
NEXT X 

IF S=l THEN S = 0:GOTO 

5080 

RETURN 



La línea 1000 nos remite a una sub- 
rutina situada en las líneas 5000 a 
5120, cuya finalidad es doble. En pri- 
mer lugar permite mediante INPUTs, 
la entrada de los distintos valores de 
la variable (líneas 5010 a 5070), y por 
otra parte se encarga de su ordenación 
en forma creciente (líneas 5080 a 5120 
del programa). 

10000 PRINT TAB(3) "NO SE 
CUMPLEN LAS 
CONDICIONES" 

10001 PRINT TAB(3) "DE 
APLICACION. ":RETURN 

10010 PRINT TAB(3) "EL 

NUMERO DE INDIVIDUOS 
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^^^^^^^^^ 

DE LA" 

10011 PRINT TAB (3) "MUESTRA 
ES 

INSUFICIENTE.": RETURN 

10020 PRINT TAB(3) "PUEDES 
CONTINUAR, AUNQUE LOS' 

10021 PRINT TAB(3) 
"RESULTADOS NO 
TENDRAN NINGUN" 

10022 PRINT TAB(3) "VALOR 
ESTADISTICO. ":RETURN 

10030 BEEP:BEEP 

10031 INPUT "RIESGO A 
EMPLEAR 5% 1%?"; 
Z:RETURN 

10040 PRINT TAB(3) "NADA SE 
OPONE A ACEPTAR QUE 
LA" 

10041 PRINT TAB(3) "MUESTRA 
ESCOGIDA PERTENECE A" 

10042 PRINT TAB(3) "UNA 
POBLACION CUYA 
PROPORCION" 

10043 PRINT TAB(3) "ES DE"; 
PP:RETURN 

10050 PRINT TAB(3) "CON UN 
NIVEL DE CONFIANZA 



DEL";100-Z; 
"%": RETURN 

10060 PRINT TAB(3) "LA 
MUESTRA ESCOGIDA 
TIENE UNA" 

10061 PRINT TAB(3) 
"PROPORCION DE";P0 ; " 
LUEGO," 

10062 PRINT TAB(3) "NO 
PERTENECE A LA 
POBLACION" 

10063 PRINT TAB(3) "ORIGEN 
TEORICA":RETURN 

10070 PRINT TAB(3) "LOS 
RESULTADOS 
OBTENIDOS NO TIENEN" 

10071 PRINT TAB(3) "VALOR 
ESTADISTICO": RETURN 

10080 PRINT TAB(3) "PARA 
REALIZAR OTRO 
CALCULO PULSAR RUN" 

Las diversas líneas 10000 y siguien- 
tes tienen por misión dar informacio- 
nes, además de algunas solicitudes es- 
pecíficas (línea 10030, riesgo a em- 
plear). 
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LOS MEJORES 
DE INPUT MSX 



PUESTO TÍTULO PORCENTAJE 

1° Soccer 14,3 % 

2. ° Knight Mare 14,1% 

3° Oreen Beret 13,3% 

4. ° rínightLore 10,6 % 

5. ° TheGoonies 10,3% 

6. ° Hero 9,6% 

7. ° Profanation 8,5% 

8. ° The Dam Busters 6,9% 

9. ° nemesis 6,3% 

10.° Yie Ar Kung-Fu 6,1% 



100,0 % 



Para la confección de esta relación únicamente 
se han tenido en cuenta las votaciones 
enviadas por nuestros lectores de acuerdo con 
la sección «LOS MEJORES IriPUT». 

Abril de 1987 



MAPA, CARGADOR Y POKES PARA... 



¡LIVINGSTONE, SUPONGO! 



En 1866, el famoso explorador Da- 
vid Livingstone partió del Reino 
Unido hacia el África negra en busca 
de las fuentes del Nilo. Tras años sin 
noticias del explorador, una revista 
norteamericana encomendó a otro fa- 
moso explorador, Henry Morton 
Stanley, encontrar al supuesto extra- 
viado Livingstone, para lo cual se em- 
barcó hacia África y partió desde Ba- 
gamoyo, en la costa Oriental, junto a 
Zanzíbar, desde donde remontó el río 
para hallar a Livingstone, dándose la 
paradoja de que el buscador tuvo que 
ser buscado. Nuestras aventuras co- 
mienzan con las peripecias de Stanley. 

Para afrontar nuestra dura empresa, 
Stanley porta en su mochila un co- 
pioso material que nos será muy útil y 
necesario para llevar a buen fin nues- 
tra misión. Este material se compone 
de un boomerang, con su clásico mo- 
vimiento de ida y vuelta, un machete, 
que puede ser arrojado horizontal- 
mente, granadas, las cuales tienen un 
efecto parabólico, y, por último, una 
inseparable pértiga, con la cual podre- 
mos realizar una infinidad de saltos 



para salvar los distintos y numerosos 
obstáculos. 

Todos estos objetos tienen un nivel 
de fuerza que debemos utilizar perfec- 
tamente para conseguir nuestro obje- 
tivo. Asi que lo primero que haremos 
es aprender a manejar adecuadamente 
cada arma. 

Acto seguido nuestra misión será la 
de buscar, pantalla tras pantalla, las 
cinco gemas sagradas del templo de 
los Ujiji, pues nos serán imprescindi- 
bles para pasar el templo y así poder 
continuar la aventura. Habremos de 
estar siempre pendientes de los niveles 
de nutrición e hidratación. pues de 
ellos depende nuestra vida. Estos ni- 
veles los podremos recuperar reco- 
giendo los diversos alimentos desper- 
digados por la jungla. 

Aparte de los bichejos propios de 
cada pantalla, y a los cuales poco a 
poco iremos eliminando, para prose- 
guir nuestro camino hay que hacer es- 
pecial mención de los siguientes obs- 
táculos. Sin duda, el más temido e in- 
cordiante enemigo es el águila. De- 
bemos dejarnos coger sólo una vez y 
para alcanzar la gema que se halla en 
el nido. Una vez recogida, en ningún 




caso debemos caer de nuevo en sus 
zarpas, puesto que el águila nos lle- 
varía casi al principio de la jungla, con 
lo que tendríamos que volver a em- 
pezar. Otro obstáculo difícil es el co- 
codrilo que se halla en la entrada de 
la mina y merodea ante ésta. Sólo dis- 
ponemos de un segundo para intro- 
ducirnos en la cueva saltando desde el 
principio de la pantalla. Otro tenaz 
obstáculo es el Pozo. Debemos cal- 
cular muy bien el salto, pues si caemos 
perderíamos todas nuestras vidas, así 
que mucho ojo. Por último, las tram- 
pas. Deberemos fijarnos mucho en el 
suelo para no pisar los troncos, puesto 
que éstos se hunden y caemos en las 
trampas de las que sólo podremos salir 
accionando con el boomerang las pa- 
lancas dispuestas a este fin. 

Mención especial merecen las pan- 
tallas de la cascada, las cuales tendre- 
mos que atravesarlas siempre por 
arriba, pues de lo contrario siempre 
volveremos al principio. Esto mismo 
deberemos hacerlo en la última pan- 
talla de la mina. 

CARGADOR 

Para hacéroslo más fácil, los mucha- 
chos de Opera han incluido en el car- 
gador de su programa una rutina, con 
la que, al introducir su nombre, 
«OPERA», a partir de la dirección 
62464 nos dará vidas infinitas. 

También incluimos un cargador con 
el que podréis, además de dotaros de 
vidas infinitas, eliminar a vuestro 
gusto los enemigos que no os apetez- 
can. 

COMO USARLO 

Una vez tecleado, lo salvaremos. 
Acto seguido lo ejecutamos y el pro- 
grama nos sacará un menú en el cual 
elegiremos las opciones que quera- 
mos. Finalizadas nuestras peticiones, 
pulsaremos la «t» e introduciremos el 
programa ORIGINAL y pulsaremos 
PLAY; éste se cargará y disfrutaremos 
del juego a nuestra medida. 



5¡v¡sto de Software^ 




10 DATA "A-VIDAS INFINITAS" 240 

20 DATA "B-AGUILA" 220 PRINTA$ 

30 DATA "C- PLANTA 230 GOTO 210 

CARNIVORA" 240 FORI = 0TO18:POKE 
40 DATA "D-OJOS TRAMPA" &HE200+I,0:NEXT 

50 DATA "E-MONOS" 250 PRINT"OPCION" 

60 DATA "F-MINEROS" 255 A$ = INKEY$:IFA$ = "" 
70 DATA "G-LANCEROS" THEN 255 

80 DATA "H-ARQUEROS" 260 IF A$ = "T"THEN 300 

90 DATA "l-MAGO" 270 IFA$ = "S"THEN FORI = 0TO 
100 DATA "J- VAGONETA" 18:POKE&HE200 + I,255:N 

110 DATA "K-GRISU" EXT:GOTO 300 

120 DATA "L-PRIMITIVOS" 280 POKE &HE200 + (ASC(A$)- 
130 DATA "N-SIRENA" 65),255:GOTO 255 

140 DATA "M-TORNADO" 300 R = &H9010:FORI = 
150 DATA "O-BOLA DE T014:READA$ 

FUEGO" 310 FORJ = lTOLEN(A$)STEP 
160 DATA "P-ARAÑA" 2:POKE R,VAL("&H" + MI 

170 DATA "Q-MERCENARIO" D$(A$,J,2)):R = R + 1 .-NEXT 

180 DATA "R-COCODRILO" JrNEXT I 

190 DATA "S-TODO" 320 DEFUSR = &H9010:PRINT 

191 DATA "T-SALIR", "-1" USR0(0) 

200 SCREEN 1:KEY OFF: 1000 DATA "F30604C5480D3E 
PRINT'TOKEADOR 80B 10604C5F548E6EF3 

LIVINGSTONE SUPONGO" 

205 PRINT" 1010 DATA "0DCB21CB21B12 

10040CD24002100403E 

i» ii 

210 READA$:IF A$ = "-1"THEN 1020 DATA "AA77CB27CB26B 



E280AF1C110DEC110D3 



1030 DATA "C30000E1E1E1F3 
2110901100E001E800" 
1040 DATA "EDB0C345E0F3C 
D8EE03100F0CD7EE0DD 

1050 DATA "2100E01 101A0D 
DE5D5CDE400D1DDE1D 
D" 

1060 DATA "7700CB433E062 
0023E0FCD98E0DD2B1 
B" 

1070 DATA "7BB220E2CD93E 
0CD9FE02A0240E906C8 

1080 DATA "C5CDE400C1 10F9 
CDE400B720FAC93E08" 

1090 DATA "D3ABC93E09D3A 
BC9D3993E87D399C92 
A" 

1100 DATA "00E27EB7280521 

00B53600DD21D3E0FD 
■ i 

1110 DATA "2101E2061 1FD7E 
00B72811DD7E00CB27 

1120 DATA "5F160021C8A519 
36512336C1DD23FD23" 

1130 DATA "10E3C907090B0 
C0D0E0F101118191C1D 

1140 DATA "1E2122272C2D3 
1" 




A. AGUILA 

B. TRAMPA 1 

C. TRAMPA 2 

D. GEMA 

E. NIDO 



SOFTACTUALIDAD 



DUNK SHOT 

Este programa de la casa Hal 
Laboratory está predestinado a 
convertirse en el juego preferido de 
los amantes del deporte de la 
canasta. En la primera parte del 
programa, que es opcional, 
confeccionamos dos equipos de 
básquet: podemos escoger el número 
de jugadores, el nivel de cada uno de 
los contrincantes, ponerles nombre, 
elegir a los titulares que empezarán 
el partido y hasta escoger el color de 
piel de cada jugador. Del mismo 
modo, escogemos el color de la 
pista, el nombre de los equipos y la 
duración del partido. 

Ahora ya está todo preparado para 
empezar la contienda. En la pista 
aparecerán los seis jugadores, tres 
por cada equipo. Las jugadas de tres 
puntos se suceden, hay faltas 
personales, tiros libres, los jugadores 
hacen el mate, pero es imposible 
salirse de la pista (un pequeño 
defecto). Aparte de esto, también 

está permitido 




hacer cambios de 
jugadores durante el partido, ya que 
éstos se van cansando a lo largo de 
la contienda. También se señalan 
infracciones como los 10 para pasar 
de campo o los 30 segundos de 
posesión de pelota. 

Ya sólo nos queda esperar y 
albergar la esperanza de que algún 
día alguien llegue a comercializar 
este magnífico juego. 



EGGERLAND MISTERY 

Si os dijéramos que este juego se 
basa en pasar diferentes pantallas, 
después de haber recogido unos 




objetos que se encontraban 
dispersos, mientras esquivamos a 
nuestros enemigos, para que al final 
se nos abra una puerta y accedamos 
a través de ella a la siguiente 
pantalla, y acto seguido afirmáramos 
que éste es un juego original no os lo 
ibais a creer. Pero es así. Ya que a 
diferencia de todos los juegos de esta 
clase, no se basa en la habilidad de 
cada jugador con el joystick o las 
teclas, sino que es un juego de lógica 
y que nos hará pasar largas y 
divertidas tardes pensando cómo 
superar los problemas que se nos 
plantean. Cada pantalla está pensada 
para que con los objetos que 
tenemos a nuestro alcance podamos 
superarla. Pero, cuidado, un fallo es 
mortal, antes de empezar a 
movernos por la pantalla tenemos 
que pensar la forma de actuar para 
superar todas las dificultades. 

Una opción muy interesante del 
programa es que cada cinco pantallas 
y tras superar una pantalla de bonus 
se nos da un código con el que, 
después de cargar el programa, lo 
introducimos y podemos ir 
directamente a la pantalla en la que 
habíamos acabado jugando. 



CHOPPER II 

Este programa de simulación de 
vuelo con un helicóptero se nos 
presenta en dos versiones diferentes, 
una parte MSX1 y otra para la 
segunda generación, la mayor 
diferencia: los gráficos. Nuestra 
misión es rescatar a unos hombres de 
las manos del enemigo, y para ello 
contamos con el más sofisticado de 
los helicópteros. 

Se trata de un helicóptero 
computerizado casi por completo: 
debido a que nuestra visión queda 
muy reducida por la ubicación del 
armamento. Veremos el exterior a 
través de la pantalla del computador 
que nos permite seleccionar el 
armamento (misiles rastreadores, 
misiles que buscan fuentes de calor, 



o las ametralladoras). Nos avisará de 
si el objetivo que tenemos en 
pantalla es enemigo o no, hará un 
reconocimiento del helicóptero o un 
inventario del armamento que 
llevamos a bordo. Y para acceder a 
toda esta información tan sólo 
necesitamos pulsar las diferentes 
teclas de funciones. Además, 
tenemos que estar atentos a la 
altitud, a la velocidad que nos 
desplazamos, al combustible 
(disponemos de dos tanques), al 
aceite y a las revoluciones por 
minuto a las que llevamos el motor. 
Todos estos indicadores se 
encuentran en la cabina del piloto. 
Para nuestra orientación disponemos 
de una brújula y un radar. 

Después de hacer funcionar todos 
los comandos y tras largas horas de 
práctica, completaremos nuestra 
misión con éxito. 



TWINBEE 

¿Recordáis Knightmare? , pues este 
programa es una versión diferente 
del mismo tipo de juego. Y, 
lógicamente, es de la casa Konami. 





Pero este juego presenta algunas 
innovaciones. En primer lugar en 
ningún sitio de la pantalla aparece el 
marcador, y así toda la pantalla 
queda libre para desplazarnos sobre 
ella. Para acceder al marcador 
tenemos que pulsar la tecla de pausa, 
Fl, y se nos dará toda la información 
que normalmente se encuentra en 
uno de los bordes de la pantalla: 
puntuación, puntuación máxima y 
número de vidas que nos restan. La 
segunda innovación es más 
espectacular. Si jugamos dos 
jugadores, no lo haremos 
alternativamente, sino que jugaremos 
los dos a la vez, y si nos juntamos 
pasaremos de disparar unas débiles 
balas a disparar una potente bola de 
fuego, pero eso sólo si nos 
mantenemos unidos. 

El juego tiene como escenario las 
islas de Japón y los enemigos están 
armados con utensilios de cocina, 
cuchillos, ollas, platos... Además de 
conseguir un escudo protector, un 
par de sombras, como en el juego de 
Nemesis, que también disparan, pero 
no las pueden matar, o un doble 
disparo, o todo a la vez. Todo esto 
lo conseguimos gracias a unas 
campanas que se encuentran 
escondidas dentro de las nubes y que 
al disparar sobre ellas cambian de 
color y según sea éste cuando la 
recojamos nos transformaremos de 
un modo u otro. Pero id con cuidado 
que, si las campanas son negras, 
nuestra suerte estará echada: 
sucumbiremos. 



THUNDERBALL 

¿Creéis que en el siglo xxi el 
fútbol no habrá evolucionado?, pues 
los programadores de Bytebusters ya 
nos han predicho el futuro, y han 



jugadores humanos entre ellos, o un 
humano contra el ordenador. En esta 
última opción se nos permite escoger 
entre tres niveles de juego distintos 




Edad Media, la brumosa época del 
castillo de Camelot y la espada 
Excalibur. Nosotros tenemos como 
objetivo liberar de las fuerzas del 
mal a una bella princesa. Al 
completar cada pantalla, nuestro fiel 
caballo nos vendrá a recoger y 
accederemos al siguiente nivel y así 
sucesivamente. A lo largo de nuestra 
lucha con los lacayos del mal iremos 
recogiendo las diferentes armas que 
al final nos permitirán matar a 
Zubuk, el gran demonio. Pero 
cuidado, ya que Zubuk sólo tiene 
una idea en la mente: exterminarnos. 
Nuestro guerrero se mueve con las 
teclas del cursor, con la barra 
espaciadora dispara y para coger 
los diferentes objetos que 
encontremos debemos pulsar 
la tecla CLEAR. 



creado un juego que se desarrolla a 
la velocidad de la luz: Thunderball. 
Nuestro objetivo es marcar el mayor 
número de goles posible, o como 
mínimo conseguir una puntuación 
superior a la de nuestro adversario. 
Para ello debemos desplazarnos 
hasta donde se halle la pelota mágica 
e impulsarla hasta la portería del 
otro jugador, y si éste nos lo 
permite, introducirla en su portería y 
marcar gol. 

La pantalla se encuentra dividida 
en dos partes iguales y cada una de 
ellas representa la visión 
computerizada de uno de los dos de 
los jugadores. Y para guiarnos 
disponemos de un radar y una flecha 
que nos indica hacia qué dirección 
nos estamos desplazando. 
Lógicamente el programa tiene las 
típicas opciones de jugar dos 



para el ordenador. ¡Ah!, nos 
olvidábamos, este juego sólo es pa 
ordenadores de la segunda 
generación. 



CRUSADER 

Ponyca nos presenta su última 
novedad: Crusader. Un juego que 
parece sacado de una historia de la 
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PERT 



• IDEALOGIC-DIMensionNEW 
■ APLICACION 

En el año 1958 surgen en EE.UU. 
las técnicas PERT, como esquemas 
que permiten programar, con ventaja 
sobre los métodos clásicos de Gantt, 
proyectos de gran complejidad en los 
campos militar y civil. Desde hacía 
mucho tiempo era admitida, casi 
unánimemente, la concepción de un 
proyecto como un conjunto de 
actividades que habían de ser 
ejecutadas en un determinado orden; 
pero no se había llegado a la 
utilización práctica de este hecho. El 
primer paso condujo a separar las 
dos funciones de planificación y 
programación. La clara separación 
de estas dos funciones permitiría 
sacar más partido de toda la 
información relativa a un proyecto. 
Y uno de los métodos de 
formulación de modelos abstractos 
para proyectos de ingeniería es el 
PERT. Este es un método de 
investigación operativa que 
determina el camino crítico de todas 
las actividades necesarias para 
realizar el proyecto en función de su 
duración. Todas las actividades son 
expuestas en forma de gráfico, 




expresadas en forma de tiempo, 
definido por las fechas de inicio y 
finalización de cada una y así se 
obtiene el camino crítico; después de 
analizar y resolver las posibles 
duplicidades y los retrasos de cada 
actividad. Este método es aplicable a 
todos esos proyectos que permiten la 
especificación del conjunto de las 
actividades y las interrelaciones entre 
ellas. 

Ahora Idealogic pone a nuestra 
disposición un completo programa 




que nos permitirá gozar de las 
ventajas de plantear nuestros 
proyectos tras un análisis a partir del 
método PERT. Este programa 
permite trabajar con 300 actividades, 
con 10 dependencias cada una, 30 
pantallas gráficas, que pueden ser 
sacadas por impresora y unidades de 
tiempo del 1 al 999. Y a todo esto se 
adjunta un librito con un ejemplo y 
toda la bibliografía necesaria para 
convertirnos en unos expertos. 
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STAR SEEKER 

• MIRRORSOFT ■ APLICACION 
ASTRONOMICA 

Mirrorsoft nos ofrece dos programas 
en uno. En primer lugar tenemos 
Star Seeker, un programa que nos 
puede servir como guía introductoria 
a la astronomía, o como herramienta 
de trabajo para localizar esas 
estrellas que queremos observar. Y 
en segundo lugar Solar System. Este 
programa nos facilita información 
acerca del sol, los nueve planetas del 
Sistema Solar y el cometa Halley. 
Pero analicemos más a fondo cada 
uno de estos programas. 

Star Seeker 

Tras cargar el programa en el 
ordenador, éste nos pedirá la 
información sobre nuestra posición 
tanto especial como temporal. Para 
que nos sea más fácil el introducir 
estos datos, el librito de instrucciones 
lleva toda la información necesaria 
acerca de la ubicación tanto respecto 
al Ecuador como al meridiano de 
Greenwich, de quince capitales de 
estado de todo el mundo y otras 
tantas ciudades importantes, como 
New York o Melbourne. 
Seguidamente se nos preguntará 
hacia qué dirección queremos 
realizar nuestra observación. Ahora 
ya hemos introducido todos los datos 



necesarios para que el ordenador nos 
muestre el mapa estelar, y así lo 
hace. Una vez finaliza la confección 
de éste con las estrellas y 
constelaciones más importantes un 
menú que aparece en la parte 
inferior de la pantalla nos permitirá 
acceder a las siguientes opciones: 

L-Nombre de las constelaciones 
mostradas en pantalla. El ordenador 
va citando las diferentes 
constelaciones que podemos visionar 
y en el momento que el nombre de 
una de las constelaciones aparece en 
pantalla, ésta parpadea en el mapa 
estelar para que las podamos 
localizar con mayor facilidad. 

C-Construcción del mapa de 



constelaciones. Las estrellas 
pertenecientes a una misma 
constelación se unen gracias a una 
línea imaginaria mientras en la parte 
inferior de la pantalla aparece el 
nombre de dicha constelación. 

I-Información sobre una estrella. 
Tras haber escogido una estrella el 
programa nos informa sobre su 
posición exacta, su brillo, la 
constelación a la que pertenece y la 
hora de salida y la hora en que se 
pondrá el día seleccionado 
anteriormente. 

U-Actualización de la posición de 
las estrellas. 

N-Introducir nuevos parámetros 
sobre la posición del observador. 

P- Volcado a impresora del mapa 
estelar. 

Ahora ya podemos acceder a la 
información sobre 800 estrellas y 76 
constelaciones de que es poseedor el 
programa, de forma que, poco a 
poco, y sin darnos cuenta nos iremos 
introduciendo en el interesante 
mundo de la astronomía. 

Solar System 

En este programa se nos facilita 
información de los planetas del 
sistema solar y del cometa Halley, 
que nos visitara el año pasado. 
Como seguramente recordarás, en el 
sistema solar se conocen nueve 
planetas principales, que en orden a 
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sus distancias al Sol son: Mercurio, 
Venus, la Tierra, Marte, Júpiter, 
Saturno, Urano, Neptuno y Plutón. 
Analicemos ahora el programa. 
En la primera parte del mismo se 
nos da la información sobre el astro 
escogido en el sistema solar, su 



I-Información de un astro presente 
en la pantalla. 

O-Seguir los movimientos 
orbitales. 

Y la sexta y última opción nos 
permite cambiar la hora, fecha y 
localización, los parámetros, de la 
observación. 

Estamos seguros 
que estos dos 
completísimos 
programas serán 




les interese la observación de los 
astros. La finalidad de este programa 
es doble. Por una parte quiere 
sustituir a los mapas estelares, ya 
que gracias al ordenador podemos 
acceder a mucha más información y 
de una manera más dinámica y 
atractiva. La segunda finalidad de 
Star Seeker es el convertirse en una 
guía en el conocimiento de la 
astronomía, para los no iniciados en 
este terreno, de manera que puedan 
comprobar de forma más tangible 
todo lo que se explica en los libros. 
Y para cumplir con estas dos 
finalidades al comprar el programa 
se nos hace entrega de un manual de 
instrucciones que además de poner 




posición en el cielo, su brillo y el 
momento de salida y puesta del 
astro. La segunda opción nos 
indicará a qué hora amanecerá y a 
qué hora se pondrá el sol en un día y 
una latitud y longitud determinadas. 
La tercera opción calcula y muestra 
la órbita de la Luna, además de las 
fases de ésta. La cuarta opción nos 
da toda la información referida a los 
cometas que hay en el sistema solar. 
La quinta opción, después de 
mostrarnos un gráfico del sistema 
solar, nos permitirá: 

M- Volver al menú. 

P-Detener un volcado de pantalla 
por impresora. 

S-Cambiar la escala de 
visión. 




de gran utilidad tanto a los iniciados 
en la astronomía, como a aquellos 
que se quieran iniciar en esta antigua 
ciencia. Pero no os creáis que Star 
Seeker es como un planetario por 
ordenador, aunque los gráficos son 
buenos, este programa no tiene la 
intención de ser espectacular, su 

I objetivo principal 
es convertirse en 
una herramienta 
de trabajo útil y 
completa para 



varios ejemplos de cómo usar el 
programa lleva unas páginas de 
información sobre las estrellas, los 
planetas del Sistema Solar y la 
astronomía en general. Y todo ello 
está hecho con la colaboración del 
London Planetarium, lo que le da al 
programa un sello de garantía y 
fiabilidad. 
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produjera el boom de los 
ordenadores personales, el único 
modo de acceder a estos juegos era 
con cinco duros en los bares o 
salones «recreativos». En esa época 
salieron los que hoy en día podemos 
considerar los clásicos de la 
informática, como son los 
comecocos, los primeros 
matamarcianos , las carreras de 
coches... Y como clásicos que son 
cada vez que sale al mercado un 
nuevo ordenador, seguidamente se 
adaptan a él todos estos juegos, y 
normalmente acaban apareciendo 
dos o tres versiones de cada uno de 
ellos. Siguiendo esta tradición 
OCEAN SOFTWARE ha adaptado 
para los ordenadores MSX uno de 
los juegos más populares y originales 
de estos clásicos: el célebre Donkey 
Kong. 

Creemos que a este juego le sobran 
presentaciones, pero para aquellos 
que sean algo olvidadizos les vamos 
a refrescar la memoria. Donkey Kong 
fue uno de los primeros programas 
en basar sus gráficos y la trama del 
juego en personajes con aspecto 
humano. Los protagonistas son: el 
leñador, muy valiente y enamorado 
profundamente de la protagonista 
femenina, y la bella dama que, por 
suerte, nos corresponde con su amor. 
Pero esta escena de novela rosa pasa 
a ser un drama cuando un gorila, el 




malo de la película, secuestra a 
nuestra bella dama y nosotros, a 
través del leñador, hemos de luchar 
hasta la muerte por liberarla de las 
manos de esa bestia. El gorila se 
situará junto a nuestra amada en la 
parte superior de la pantalla, y no 
nos va a poner las cosas nada fáciles 
para que nosotros, que tenemos 
nuestro punto de partida en la parte 
inferior, logremos alcanzarles. Para 
ello debemos subir por las diferentes 
rampas, escaleras o ascensores que 
nos permitirán acceder hasta donde 
ellos se encuentran, mientras 
esquivamos o saltamos, con diferente 
suerte cada vez, el alud de barriles 
que el gorila nos lanzará, y todo ello 
dentro del tiempo preestablecido. 
Como si lo anterior fuera poco, 
además de estos peligros tenemos 
que ir con cuidado y no salimos de 
las plataformas, tanto si vamos 
andando como si lo hacemos al 



saltar, ya que si no es así, 
perderemos una vida. Que tan sólo 
recuperaremos al alcanzar los 10.000 
puntos, o un múltiplo de éste. Cada 
vez que logremos nuestro objetivo el 
gorila nos arrebatará de nuevo a 
nuestro amor, y se situará en una 
pantalla más difícil. 

Sin embargo, nunca deberéis 
desanimaros, pues la constancia es la 
única manera de acabar superando 
todas las dificultades que nos 
esperan. 
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PERRY MASON 

• IDEALOGIC-PHILIPS ■ AVENTURA 
INTERACTIVA 

El mes pasado os presentábamos la 
serie Telarium de Idealogic, y os 

comentábamos algunos de sus 
programas. Este mes os vamos a 



vamos a saber de qué color se pinta 
los labios Della, ya que la serie era 
en blanco y negro, pero ahora, 
gracias a las fotografías digitalizadas 
con las que se ilustra el programa, 
todos los personajes y escenarios en 
los que se desarrolla nuestra 
investigación van a ser de color. 
El juego sigue el desarrollo norma 




para que nosotros logremos hacerlo 
tan bien como él junto al juego, se 
nos hace entrega de un manual que 
deberemos leer con atención pues 
habremos de pasar el examen del 
Colegio de Abogados Californianos. 
Este se basa en saber protestar, 
conociendo los motivos por los 
cuales lo hacemos (improcedente, 




introducir uno de los juegos más 
original y ameno de esta serie de 
programas interactivos. El juego en 
cuestión es el ya mencionado Perry 
Masón. Como es de suponer éste se 
basa en la famosa serie televisiva, y 
el caso que hoy nos ocupa es EL 
CASO DEL ASESINATO EN EL 
MANDARIN. Uno de los muchos 
casos a los que se tiene que enfrentar 
Perry, pero ahora hay un hecho 
especial: nosotros tenemos que 
realizar su faena, y a su estilo. El 
estilo de Perry Masón es el del mejor 
abogado criminalista de California, 
un abogado que además de defender 
a su cliente de forma inteligente, 
siempre acaba descubriendo el 
verdadero culpable. Como siempre, 
contamos con la ayuda de Paul 
Drake y Della Street. Paul Drake es 
un gran detective que llevará a cabo 
todas aquellas investigaciones que 
Perry, o sea, nosotros, crea oportuno 
hacer. Y volverá con su informe una 
vez haya terminado sus pesquisas. 
Della Street es una asistente jurídica 
muy cualificada que nos acompañará 
en todo momento y siempre 
dispuesta a ayudarnos. Sin la ayuda 
de estos dos amigos ao sabríamos 
qué hacer. ¡Ah! Por primera vez 



de los casos en que interviene Perry 
Masón. En primer lugar debemos 
llebar a cabo la investigación del 
caso y la recopilación de pruebas. 
Aquí ya encontraremos a uno de 
nuestros peores enemigos, el 
sargento Halcomb. El sargento va 
por la vida de brazo fuerte de la ley, 
y preferiría arrestarnos a nosotros 
que al propio asesino. O a nuestro 
viejo amigo, pero adversario, el 
teniente Tragg, el jefe de homicidios 
La parte más emocionante, pero no 
la más importante, ya que todas lo 
son por igual, es la que se desarrolla 
en el juzgado. Aquí Perry Masón se 
encuentra como pez en el agua, y 



rumor, guiando opinión, no 
cualificado o intimidación) a las 20 
preguntas que se nos plantean. Este 
ejercicio nos será de gran utilidad 
para afrontar con garantías de éxito 
nuestra labor delante del jurado. 



ANIMACION 


9 


INTERES 


8 


GRAFICOS 


9 


COLOR 


8 


SONIDO 


8 


TOTAL 


42 





FUTURE KNIGHT 

• GREMLIN GRAPHICS ■ JUEGO 

Future knight es el juego que nos 
trasladará al futuro mostrándonos los 
terribles peligros que allí nos 
esperan. El tema se parece algo a lo 
que le sucedía al protagonista de 
Regreso al futuro, pero en este caso 
el entorno es mucho más siniestro. 
En un principio nos encontramos 
encerrados en nuestra nave, y nos 
daremos cuenta de que ésta ya ha 
sido invadida por fantasmas, 
calaveras y otros horribles seres, que 
al cruzarnos con ellos, nos restan 
salud. Ésta viene indicada por un 
marcador que va de cero a 999, 
situado en la esquina inferior 
izquierda. Nuestro primer objetivo 
será lograr salir de la nave y así 
investigar los nuevos mundos. Para 
ello debemos utilizar todos los 
objetos que están a nuestra 
disposición. El hechizo Bridge nos 
permite crear un puente por encima 




de la ardiente lava, y además nos da 
una vida extra. La llave «Secruro» 
abre una de las salidas cerradas en 
una pantalla determinada. El cetro 
nos permite destruir a un gran robot, 
que es casi imposible de abatir con 
nuestra pequeña pistola. El hechizo 
Destruct elimina a todos los 
alienígenas que se encuentran en la 
misma pantalla que nosotros. 
También sirve para vencer el 
Henchodroid. El pase Exit 
desbloquea la salida de la nave y 
además nos provee 
de una vida 
extra. El pase Safe 
abre una de las 




salidas. El guante nos permite llevar 
el hechizo Reléase para rescatar a la 
bella damisela y besarla. Y para 
utilizar todos estos objetos sólo hace 
falta encontrarlos y pulsar la tecla M, 
pero, ¡cuidado!, hay algunos que tan 
sólo funcionan en una sala 
determinada. Los objetos que 
podemos emplear siempre que 
queramos son: la bomba, el 
Confuser, el misterioso hechizo Flash 
Bang y el Shortener. 

Este programa de arcade suma a la 
aventura el atractivo de tener que 
coger y usar unos objetos 
determinados para lograr completar 
nuestra misión por unos pasajes 
laberínticos. A lo largo de ellos se 
hallan tanto nuestros enemigos como 
aquellos objetos que nos ayudarán a 
superarlos. 

Los gráficos son sencillos, pero 
imaginativos, y el muñeco es más 
que simpático; si lo dejas quieto en 
un sitio, al cabo de un rato te 
llamará la atención, y si sigues sin 
hacerle caso empezará a disminuir su 
energía. El único inconveniente es 
que es un poco lento y torpón. 
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Vendo/cambio programas MSX en 
cinta y diskette 3,5". 200 títulos. Tengo: 
Camelot Warriors, Batman, Goonies, F. 
Martin Basket, etc. Juan C. Enrique For- 
cada. C/ La Carrera, 2, 5.° 12530. Bu- 
rriana. Castellón. 



Intercambio programas para MSX, sólo 
en disco. Llamar a: Jordi Tugues Rai- 
mat. C/ Alfred Perenya, 43, 7-A. 25004. 
Lleida. Telf.: (973)23 52 61. De 14 h a 
15 h o de 17 h a 18 h. 



Vendo juegos en disco o cinta. Son to- 
dos muy buenos. Isidro Larrañaga. C/ 
Mendiluata, 6. 20800. Zarauz. Guipúz- 
coa. Telf.: (943) 83 01 24. Llamar los fi- 
nes de semana. 



Vendo configuración completa de SVI- 
328 con los lenguajes: Cobol 80, Turbo 
Pascal. Forth. Precio a convenir. Sal- 
vador Martínez Hernando. C/ Peralara, 
23, 2.° A. Tres Cantos. Madrid. Telf.: 
(91)803 22 24. 



Intercambio trucos, ideas, conocimien- 
tos del MSX y la unidad de disco 3,5". 
Poseo mapas de memoria de la ROM y 
libros. Escribir a: Carlos Mateos Nava- 
rro, el Dr. Zamenhof, n.° 24, 3.° 1 . a Man- 
resa. Barcelona - 08240. 

Intercambio programas MSX, poseo 
primeros títulos. Contestaré a todas las 
cartas. Santiago Mestre Pascual, el 
Maestro Caballero, n.° 25. 12200 
ONDO. Castellón. Telf.: (964) 60 25 45. 

Vendo 50 juegos primeras marcas 
(Knighmare, Tennis, Sorcery, Jet figh- 
ter, etc.), más pokes y mapas para 
MSX. Un completo curso sobre me- 
moria de vídeo del MSX por sólo 5.800 
ptas. Pedidos contra reembolso al 
(93) 869 51 57 de 8 a 10 de la noche. 

Vendo juegos tales como: Las tres lu- 



MOCO 

ees de Glaurung, Batman, Camelot Wa- 
rriors, Cyberun, etc. (800 cada uno). Lla- 
mar al (987) 41 26 95. Alberto, o llamar 
al (987)41 05 30. David. 



Vendo órgano CASIO PT-20 casi nuevo 
por 5.000 ptas. También desearía con- 
tactar con usuarios del MSX para for- 
mar club o intercambiar programas, 
juegos, aplicación y gestión. Luis Gas- 
par Labarga, c/ Ferrocarril, n.° 22, 6.° A. 
Telf.: 239 89 29. Madrid. 



Cambio buenos juegos y algún dinero 
por una ampliación de 64K que esté en 
buen estado. Llamar a Juan Cirilo Da- 
niel. Telf.: 201 31 29. Barcelona. 



Intercambio o compro programas de 
MSX, preferentemente juegos, también 
me interesaría comprar un copión de 
cassettes por menos de 1.000 ptas. 
También querría intercambiar progra- 
mas y juegos con chicos/as de Alicante. 
J. Carlos Mompean. Isla de Cuba, n.° 
78, 2.° izquierda. Alicante. Teléfono: 
(965) 23 65 16. 

Vendo/intercambio los siguientes jue- 
gos: Valkyr, Hero, Jet Set, Willy II, etc. 
y dos copiones diferentes uno de car- 
tucho a cinta y el otro de cinta a cinta. 
Rubén Sánchez Gil Morente. Medina 
del Campo, n.° 12, 4.° A. S.S. de los Re- 
yes. Telf.: (91) 654 05 75. 

Cambio juegos MSX, preferiblemente 
en Cádiz y provincia. Poseo primeros tí- 
tulos (Knight Lore, Kings Valley, Soc- 
cer, Alien-8 y muchos más). Me gusta- 
ría conseguir Green Beret. José Manuel 
Arteaga Castro. Avenida de la Bahía, 5, 
10.° B. 11012. Cádiz. Teléfono: 
(956) 27 01 23. 



Cambio/vendo programas MSX. Poseo 
entre otros: Kung-Fu Master, Hyper 
Rally, Knight Mare, King's Valley, etc. 
Me interesaría Copión TURBO y para 
programas con dos cabeceras. Enviar 
lista. Casimiro Robledo Gadea. Avda. 
Joan XXIII, n.° 43. Carcagente. Valen- 
cia. Telf.: (96) 243 31 70. CP.: 46749. 

Cambio/vendo juegos MSX, primeros 
títulos como: Batman, The Dambus- 
ters, Jack the Nipper, etc. Estoy intere- 
sado en los juegos: Green Beret y BC II 
Grog's Revenger. Contactar con: Feo. 
Javier de la Oliva González. C/ Este- 
pona, 9, 4.° A. 18009. Granada. Telf.: 
(958) 22 71 31. 



Cambio por monitor F. verde, un video- 
pac más G 7400 de Philips completo, 
sin usar y dos cartuchos de juegos. Je- 
sús Molina Sánchez. C/ Amapola, 5, 1.° 
B. Manzanares. C. Real. 



Intercambio juegos MSX, primeras 
marcas (Knighmare, Jack the Nipper, 
Basket F. Martin, etc.). Mandar lista de 
juegos. Miguel A. García García. C/ San 
Miguel, 9, 2.° dcha. Aguilar del Campo 
34800. Palencia. 



Vendo ordenador H.B. 55p, regalando: 
ampliación de memoria (hbm-16), em- 
balaje original, cables, todos los ma- 
nuales, mezclador de imagen, libro de 
programación, un curso de Basic, len- 
guaje Pascal con manual, ensambla- 
dor, monitor Zen, más de 80 juegos co- 
merciales, 40 cartuchos. Todo por 
27.000 ptas. Óscar Marina Saiz. C/ An- 
dalucía, 2, 3.° A. Baracaldo. Vizcaya. 
Telf.: 490 00 19. 



Vendo/cambio por juegos ampliación 
de memoria HMB-16 de Sony en per- 
fecto estado. Precio a convenir. Telf.: 
(952) 32 43 93. Málaga. Fali. 

Intercambio/vendo programas y juegos 
para MSX. Poseo más de 20 títulos y 
entre ellos los mejores del mercado. 
Prometo contestar a todos en corto 
plazo. José Alberto Ragel Castillo. C/ 
Guadalmina, 6, 2.° D. Algeciras (Cádiz). 
Telf.: (956) 60 20 16. 

Intercambio juegos MSX. Mándame tu 
lista, que yo te mandaré la mía. Con- 
testaré a todos. Montse Zayas Salvat. 
C/ San Marcos, 8-4.° 3. a . 08912 - Bada- 
lona. Barcelona. 



Intercambio juegos MSX, poseo: Hum- 
prey, Jet Set Willy II, Les Flics, Geogra- 
fía de España y Ghostbusters y me in- 
teresan en cassette originales: Zaxxon, 
Profanation, Green Beret, Knight Lore y 
The Wall. Ismael Costa Royo. C/ Torras 
y Bages, 10-4.° 1. a Manresa. Barcelona. 
Telf.: 873 61 62. A partir de las 7 de la 
tarde. 



Vendo programas MSX (Goonies, Ci- 
berun, etc.) por sólo 2.400 ptas. Óscar 
Martín Martín. C/ Huesca, 16. 47320 - 
Tudela del Duero (Valladolid). 

Cambio/vendo juegos de MSX, poseo 
más de 90 títulos, entre ellos (Knight 
Lore, Profanation, Star Avenger, Le 
Mans, etc.). También intercambio revis- 
tas, Pokes, mapas, trucos de juegos. Ja- 
vier Rosendo López. Avda. Concha Es- 
pina, s/n. 39500 - Cabezón de la Sal. 
Cantabria. Telf.: (942) 70 05 16. 

Cambiamos juegos y programas, po- 
seemos más de 150 títulos como: 
Knight Mare, Goonies, Kung-Fu Master, 
etc.). Escribir a: Club Pacense del MSX. 
Apartado 20039. C/ García de Paredes, 
19. 06006 - Badajoz. Telf.: 23 76 87. 
Juan José. 
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Cambio/vendo programas para MSX. 
Tengo los mejores. Escribir a Miguel 
Moreno. Cataluña, 48-3.° 2.° El Prat de 
Llobregat. 08820 - Barcelona. 



Compro SVI 728 y Vendo Philips 48K. 
Precios a convenir. David Pérez. C/ 
Vía Hispanidad, 3, 5.° C. Teléfono: 
(976) 56 00 13. Zaragoza. 



Intercambio todo tipo de juegos para 
MSX. Escribir a: Albert Sánchez. Avda. 
Sant Esteve, 83 A. Castellar del Vallés. 
Bafcelona. 



Compro programas comerciales MSX, 
espero ofertas. Feo. Javier Dávila 
Couto. C/ Petis, 32, 1.° 36930 - Bueu 
(Pontevedra). 



Cambio/vendo programas de juegos, 
gestión y utilidades; primeras marcas 
del mercado, envío contra-reembolso. 
J. Manuel Pérez García. C/ Cartas, 22-2.° 
10600. Plasencia (Cáceres). 



Imparto clases por correo. Código má- 
quina Z-80. Poseo ensamblador para 
SVI 328/318. Llamar o escribir a Carlos 
Carbonell Carrera. C/ Los Yébenes, 133- 
2.° dcha. 28047 - Madrid. 



Cambiamos/vendemos juegos, posee- 
mos más de 150 de primeras marcas 
(Hero, Night Mare, Night Lore, etc.), 
cartuchos de Konami pasados a cinta 
(400 ptas.). Nos interesaría una unidad 
de disco. Club Clan Chorro Soft. José 
Carlos Hurtado Gómez. Porvenir, 42, 3.° 
1. a Telf.: ( 956) 34 47 27. Jere z (Cádiz). 

Queremos formar un CLUB de MSX, en 
el cual se cambiarán los juegos y a los 
partidarios del Club se les hará llegar 
un boletín de las novedades de juegos. 
Todos los interesados escribir, man- 
dando vuestra dirección y teléfono. 
CLUB MSX. C/ Soletat, n.° 5-2.° 08500. 
Vic. Barcelona. 



Intercambiamos programas para MSX, 
Spectrum y Commodore. Interesados 
enviar lista a: Ignacio Castro Lemos, 
Grupo Iberduero, 6, 4.° Izq. Cruces. Ba- 
racaldo. 48903 Vizcaya. 



Vendo ordenador Dragón 64, monitor 
de fósforo verde, un joystick, 40 juegos, 
un cassette, etc. Precio a convenir. Lla- 
mar a Miguel López. Tel. (93) 398 10 39, 
Barcelona (de 2 a 4 de la tarde). 



Vendo Pitfall II y Manic Miner por 990 
pts. c/u y ambos por 1.800 (originales). 
También vendo 6 cintas de revista por 
1.200 pts (valoradas en 3.700 pts.) ne- 
gociables. Y las 8 cintas por 2.800. Me 
interesa el juego The Way of the Tiger. 
Iñaki Buján Varas. Gpo. Tomás Zubiria 

66 INPUT 



¿¿ZOCO 

e Ibarra, 10, 7.° C. 48007 Bilbao. Tel. (94) 
445 97 95. 



Cambio 10 juegos a elegir por éstos: 
Green Beret, Commando, Strip Poker. 
Poseo juegos muy buenos y nuevos. 
José Luis Flich Escudero. C/ Montse- 
rrat, 4, 2.° D. Los Dolores. Cartagena. 
Murcia. Tel. 51 90 42 



Intercambio juegos, poseo: Jack the 
Nipper, Gunfright, Bounder, Val Kyr, 
Alien-8, Pin Ball, etc. Me interesan: 
Booga Boo, River Raid, Hero, Sorcery, 
Hopper, Star Avenger, Fruit Panic. Fer- 
nando Miguel Bueno Moreno. C/ Valen- 
cia, 10. Puertollano, 13500 Ciudad Real. 



Intercambio programas poseo: Dam- 
busters, B C Gros Revenger, El Super 
10, 16 de Konami. Busco: Green Beret, 
C. Warriors, Las 3 Luces de Glaurung y 
un buen copión. José María Sánchez 
Morilla. Avda. Torres Murciano, portal 
20, Puerta 27. 29600 Marbella. Málaga. 



Desearíamos intercambiar programas 
para el Amstrad y MSX, con usuarios 
de toda España. Club N.B.A. Jordán. C/ 
María Marín, 69, 5.°. 02004 Albacete. 
MSX. Tel. (967) 23 97 35. 



Cambiaría tu B/N Elbe, tele juego Dal- 
son, maquinita de marcianos, cartucho 
Green Beret, 20 cintas de juegos para el 
MSX y algo de dinero por un Monitor 
MSX de fósforo verde o color. Juan 
Carlos Enrique. C/ La Carrera, 2, 5.°. 
12530 Burriana. Castellón. 



Cambio ordenador Commodore 64K 
más datassette CNB + Joystick +jue- 
gos(Rambo, Pistop II, Gremlins...) + uti- 
lidades, revistas, libros. Todo en per- 
fecto estado y 1 año de uso. Por orde- 
nador MSX HB-101-P, Philips, DYNA- 
DATA o MITSUBISHI. Pablo Soto So- 
brino. C/ Guipúzcoa, 13, 2.° Izq. 20240 
Ordicia. Guipúzcoa. 



Intercambio juegos (buenos), ideas, 
programas, etc. con usuarios de MSX. 
Pedro A. Lozano. C. a Córdoba. Valencia, 
7 3.° Izq. Villacarrillo. Jaén. Tel (953) 44 
09 90. 



Vendo ordenador HIT BIT SONY, mo- 
delo HB-501P de 80K, Prácticamente 
nuevo, en período de garantía. Teclado 
profesional y lector de cinta incorpo- 
rado; incluiría lote de programas de 
juegos y base de datos y procesador de 
textos. Todo ello por 45.000 pts. Tele- 
fonear al : (93) 692 42 31 . José Feo. Cen- 
dón. Cerdanyola. Barcelona. 



Intercambiar toda clase de programas 
e ideas especialmente en la región ga- 
llega. Nos interesan: F-16 Fighter, Ko- 



nami's Golf, etc. Mandar lista. C/ Sán- 
chez Calviño, 62, 5.° E. El Ferrol. 15406 
La Coruña. 



Intercambio juegos MSX, me interesan 
los MSX2. Poseo más de 120 títulos y 
demostraciones de gráficos. Emilio Sil- 
vera González. C/ Palos, 21 bajos. 21003 
Huelva. Tel (955) 25 34 78. 



Intercambio juegos MSX. (Night Lore, 
Gunfright, Manic Miner, Molecule Man, 
Bounder y otros. Primero enviar lista. 
Jordi Prat. C/ José María Pellicer, 45. 
Ripoll. Girona 17500. Tel (972) 70 09 87. 



Vendo juegos grabados a 150 pts. 
Tengo más de 150 títulos de los mejo- 
res, también cartuchos en cinta. Rafael 
Martín. C/ Coliescalona, 18, 2.°. Sabi- 
ñanigo. Huesca. Tel. 48 27 89. 

Cambio programas de código má- 
quina. Poseo las últimas novedades. En 
total más de 240 programas. También 
los cambios por cassette u otras cosas. 
José L. Rus. C/ Colón, 27, 2.° A. 08400 
Granollers. Barcelona. 



Vendo ordenador MSX, SONY 75P de 
80K, cassette SONY SDC500 y Lápiz óp- 
tico SANYO MLP-001, regalo cartuchos 
y juegos. Tel. (93) 384 41 67. Badalona. 
Barcelona. Francesc Rosado Safont. 



Vendo ordenador 80K CANON V-20 
nuevo, manuales Basic más de 50 jue- 
gos, copiones de cassettes y cartuchos, 
revistas MSX. Todo por 35.000 pts. Ig- 
nacio. Tel. (973) 26 20 63. Lérida. 



Vendo una cinta con una selección de 
20 excelentes juegos para MSX o cam- 
bio por programas educativos. Luis 
Montero Campos. C/ Carretera m-v n.° 
3, 16740 La Armacha. Cuenca. 



Vendo ordenador CANON 80K, unidad 
de disco 3.5", 500Kb, Impresora (Cali- 
dad de letra) 80 columnas 100 CPS; 
Base de datos disco, Procesador de tex- 
tos, contabilidad, gráficos, comunica- 
ciones, cartucho, juegos cartucho y cin- 
tas, libros y revistas. Manuel. Tel. (91) 
253 84 89. Tardes. 



Vendo ordenador Einstein 80 K de RAM 
(ampliables). Se incluye: monitor fós- 
foro verde, impresora y programas de 
contabilidad, base de datos, trata- 
miento de textos, Multiplan. Precio a 
convenir. Teléfonos (91 ) 248 41 47 - 248 
40 54 (Madrid), Oscar. 



Intercambio programas MSX, poseo tí- 
tulos aparecidos en el mercado español 
y extranjero. Enviar- lista. Miguel Ríos 
Manzanares. C/ López Puigcerver, 9-4 
izq. 30003. Murcia. 
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UWSTOI SUPONGO 



En 1871 

tras varios años sin noticias de Livingstone 
el diario New York Herald 
envía a Henry Morton Stanley 
en su búsqueda. 

Versiones: 
SPECTRUM 
AMSTRAD 





COSA NOSTRA 



El super detective Mike Bronco 
de gran prestigio mundial 
ha sido contratado 
con el fin de combatir y eliminar 
el crimen organizado que asóla la ciudad 
en estos años veinte. 

Versiones: 
SPECTRUM 
AMSTRAD 
MSX 



Próximamente en les mi/ores pe n te lies, 



Z*=».r>l SO^t Pza. Santa Catalina de los Donados, 3, 4 o Dcha. 28013 Madrid. Tel. 241 92 70 / 241 96 82 



Esta Primavera 
Sony da mucho juego 



NUEVOS PROGRAMAS MSX 




LAS VEGAS. 


ROMA. LA 


LODE 


SPACE KIT. 


PRINT LAB. 


GRAPHIC 


MUSIC 


Juego de de- 


CONQUISTA 


RUNNER II. 


Para dibujar el 


Diseñador grá- 


MASTER. 


STUDIO. 


tectives. Debe- 


DEL IMPERIO. 


Excitante juego 


espacio como 


fico. Incluye un 


Editor gráfico. 


Para compo- 


rás recuperar 


La conquista 


de aventuras y 


tú siempre lo 


cassette con 19 




ner canciones 


una alta suma 


de las tierras 


prueba de ha- 


has imaginado. 


interesantes 




sin necesidad 


dedinerodeun 


del imperio ro- 


bilidad. 


trazados y dibu- 




de tener cono- 


•capomafioso». 


mano. 






jos. 




cimientos de 














música. 



FARM KIT. 

Construye y 
pinta la granja 
de tus sueños. 



NUEVOS PROGRAMAS MSX2 




KIHETIC 
C0HHECTION 




CHOPPER 2. 


RED LIGHTS OF 


HYDLIDE. 


WORLD 


LAYDOCK. 


Al mando de un heli- 


AMSTERDAM. 


Programa de acción. 


GOLF. 


Eres el piloto escogi- 


cóptero blindado de- 


La más excitante par- 


El príncipe debe res- 


Juega al golf como 


do para devolver la 


berás combatir a tus 


tida de poker que ja- 


catar a la princesa 


un profesional. 


paz al Universo. 


enemigos. 


más hayas jugado. 


con muchas dificulta- 
des. 





¡ No te los pierdas ! 



KINETIC 
CONNECTION. 

Forma la figura miste- 
riosa atrapando los 
objetos voladores. 



SONY 



HIT 3IT 



